IDENTIFICATION 



PRODUCT CODE I DEC-9U-SR3A-LA 

PART 7 



PRODUCT NAMEi Listing of PDP-9 Advanced 

Software System V4B TOCAL 

DATE I February 20, 1970 



FOCAL 



Page 



.TITLE FOCAL 

EDIT Ifl 1--21— 7a 

/Same »s edit s except versi 



/ 
/ 

/FOCAL FOR THE POP-9 ADVANCED SOFTWARE 

/ 

/COPYRIGHT 1969 

/DIGITAL EQUIPMENT CORP. 

/MAYNARD, MASS. 

/ 

/OAVE LENEY 

/2-7-69 

/ 

/FOCAL IS A REGISTERED TRADEMARK OF 

/DIGITAL EQUIPMENT CORPORATION 

/ 

/DEFINE MULTUN IF MULTI-USeR VeHSION 

/define BF=9 If BACKGROUNo-fOReCROUNq 

.IFZER MULTI-4 
USR4S0 

.EMOC 



ON NO. CHANCE TO 6A 
SYSTEM 



WHERE Nz2 OR 4 USERS 
MONITOR 



/GLOBAL 
/ 


CALLS TO 


F4 ARITHMETIC PACKAGE 


.GLOBL 


.AA /EXPONENT 




.GLOBL 


.AB /HIGH ORDER MaNTISSa 




.GLOBL 


.AC /LOU ORDER MANTISSA 




.GLOBL 


.AO /LOAD (3 HOROS) 




•GLObL 


•aP /STORE t3 HORoS) 




.GLqBL 


.AO /ADO 




.GLOBL 


.AR /SUBTRACT 




.GLOBL 


.AS /MULTIPLY 




.GLOBL 


.AT /DIVIDE 




.GLOBL 


•AX /FIX 




.GLOBL 


.BA /NEGATE 




.GLOSL 


.AH /FLOAT 




.GLOBL 


.CO /NORMALIZE 




.GLOBL 


.9H /A**8-P0MER 




.GLOBL 


DSIN /SINE 




.GLOBL 


OCOS /COSINE 




.GLOBL 


DATAN /ARCTAMCMENT 




.GLOBL 


DLOG /LOGARITHM 




.GLOBL 


OEXP /EXPONENTIAL 




.GLOBL 


OSQRT /SQUARE ROOT 


/ 

/.GLOBL 
/ 


.GLOBL 


.ER /.OTS ERROR (?36> 


REFERENCES FOR EXTERNAL FUNCTIONS 


.GLOBL 


.NEWF /FUNCTION TABLE 




.GLOBL 


XPUSHJ /PUSH JUM? 




.GLOBL 


XPUSHA /push AC 




.GLOBL 


P02 /push FLOATING 




.CLObL 


PD3 /POP FLOATING 




.GLObL 


UTRa /UNPACK 



FOCAL 



PAGE 







.GLOBL 


XSPNOR 






.GLOBL 


FUNERR 






.GLOBL 


EFUN3 






.GLOgL 


FINT 






.GLOBL 


CHAR 






.GLOBL 


EVaL 






.GLOBL 


LaSTV 






.GLOBL 


BOTTOM 






.GLObL 


LINENO 






.GLOBL 


FLaRC 






.GLObL 


bofstx 






.GLOgL 


xgetln 






.GLqBL 
.GLOBL 


r^n 






000000 




f''O"=B00000 /PScUoO-FLOaT 


100000 




FAOD=iae000 




200000 




FSUb=200000 




300000 




FhPY=300000 




300000 




FHuL=300000 




400000 




FD[V=400000 




500000 




FGET=5000a0 




600000 




FPUT=600000 




700000 




FNaR=700000 




000000 




FEXT=0 




000000 




FXIT=0 




000003 




H0RDS=3 




000011 




0IGITS=11 




000100 




.SCOHS100 




000000 




XXs0 





/IGNORE SPACES 

/ERROR IN EXTERNAL FUNcTION 

/FUNCTION RETURN 

/FLOATING INTERPRETER 

/CHrACtEr STOrAGE 

/EVALUATION ROUTINE 

/ENO OF TeXT/VaRIabLES 

/sTaRT of push-oown list 
/current line 
/floaTinc argument 

/pointer to 3 Wo UnPaCK aREa 

'feTch line number 

/POP JUNp 

/GET 3, 6. OR 9 .SIXflT CHARS 

instructions. 



.EJECT 



FOCAL 



PAGE 



000776 A 

000775 A 

000003 A 

000005 A 



000010 
000011 
000012 
000013 
000014 
000015 
000016 



TTIS776 
TT0S775 
BKI:3 
BK0:5 



, IFUNO 
lODEV 



• ENOC 

.IFDEF 

.lOOEV 

.IFDEF 

.lOOEV 

.ENOC 



, IFOEF 



.ENOC 



MULTl 
-3.-2. 



3.5 



MULT I 
1.2.3,4 
USR4 
5.6.7.10 



TTI=0 

TTO»0 

BKI<s0 

BKOs0 

TTI1=1 

TT01=1 

BKI1S2 

BK01s2 

TTI2=3 

TT02S3 

BKI234 

BK02:4 

TTI3S5 

TT03s5 

BKI3s6 

8K0336 

TTI4=7 

TT04=7 

BKI4=ie 

BKO4<10 

COMEINS0 

CaHOUT=0 

IHBUFFS0 

INBUF»0 

OUTBUr=0 

.ENOC 
/AUTO-INOEX REGISTERS 



USR4 



/STORAGE INDEX 
/EXTRA XR 
/EXTRA XR 

/PUSHDOWN LIST Index register. 

/IOBUF-1 XRi4 FOR FLOATING POIMT 
/FOR COMMON RESTORE 

/FOR COMMON Restore 



AXIN:10 

XRT.ll 

XRT2=12 

PDlXR=13 

FLTXRS14 

X15«15 

Xl6=l6 

/ 

/IN THE MULTI USER SYSTEM 15 aND 16 aRE ALSO USED BY THE SWaP ROUTINES 

/ 

.EJECT 



FOCAL 



PAGE 



/THE FOLLOWING BLOcK IS The ENTiRe IMPURE 

;ach focal job 



/ 


AREA F 


/ 






.IFDEF 


SHPSHE 


swpbgn 


SUPBGN=. 




RESTaR 


XSbEGN 


CTLP 


XX 


BHAIT 


XX 


/ 




FLAG 












a 


/ 




FRSTSV 





LIST31 





/ 




autoxr 

























/ 




!M8FSV 


XX 


IMBF2S 


XX 


INBFSV 


XX 


OTBFSV 


XX 


.FLINP 


XX 


.XI33 


XX 


.XOUTL 


XX 


.INPUT 


XX 


.OECON 


XX 


.OECNV 


XX 


.IHAGR 


XX 


. IHAGM 


XX 


/ 






XX 




XX 




XX 




XX 




XX 




XX 




XX 




XX 




XX 




XX 




XX 




XX 




XX 




XX 




XX 




XX 




.ENOC 



MULTI 



/BLOCK S12E 

/RESTART ADDRESS FOR THIS JOB 
/aOOPESS OF *P SMlTcH FOR ThIS USgR 



/,AA Save 

/.AB SAVE 

/.AC Save 

/frst Save 
/list3*i Save 

/xia Save 
7X11 Save 
/X12 save 

/X13 SAVE 
/X14 save 

/BUFFER HEADER POINTERS 



/SUBROUTINE ENTRY POINTERS 



/RCAL01 
/RCAL03 
/HCAL01 
/WCAL03 
/HCAL04 
/LBIN01 
/LBINIA 
/LBIN02 
/LBIN03 
/LBOUTi 
/LBOUTa 
/LB0UT3 
/LBOUT4 
/FILE01 
/FILE02 
/FILE03 



r~-\ 



fOc*L 



PACE 











/REENTRANT VARIABLES 


00000 


R 


000000 


A 


f 

BOTTOH 


XX 


00001 


R 


000000 


A 


BUFSTX 


XX 


00002 


R 


000000 


A 


ENOT 


XX 


00003 


R 


000000 


A 


STaRTV 


XX 


0000^ 


R 


000000 


A 


BUFR 


XX 






000003 


R 


LASTCVs 


STARTV 


00005 


R 


000000 


A 


FRSTCv 


XX 


00006 


R 


000000 


A 


LaSTV 


XX 


00007 


R 


003756 


R 


COMBUF 


COMEIN 


000l0 


R 


00*066 


R 


C0H80T 


COMOUT 


00011 


R 


003125 


R 


IHBUpP 


IMBUff+2 


00012 


ft 


003131 


R 


INBurp 


!N8UF*2 


00013 


R 


003213 


R 


OTBUFP 


0UTBUF*2 






000014 


R 


textp». 




00014 


R 


000000 




AXOUT 


XX 


000I5 


R 


000000 




XCTX 





00016 


R 


000000 




gtem 





00017 


R 


000000 




MOOBUF 





00020 


R 


000215 




ENDCR 


215 


00021 


R 


000000 




GETVCT 





00022 


R 


000000 




SAVEOT 





00023 


R 


777777 




putcnt 


-1 


00024 


R 


000000 




tempk 





00025 


R 


000000 




INSUb 





00026 


R 


000776 




TTIN 


TTI 


00027 


R 


000775 




ttout 


TTO 


00030 


R 


000003 




blkin 


BKI 


00031 


R 


000005 




BLKOUT 


BKO 


00032 


R 


000000 




LI8RSH 





00033 


R 


000000 




EXl 





00034 


R 


000000 




ACIH 





00035 


R 


000000 




ACIL 





00036 


R 


000000 




OVERl 





00037 


R 


000000 




0VER2 









000036 


R 


OTEHPsOVERl 






000035 


R 


LTEMP«AC1L 






000034 


R 


HTEMPsAClH 


00040 


R 


000010 




FISH 


10 


00041 


R 


000000 




GETP 





00042 


R 


000000 




GETCX 





00043 


R 


000000 




GETIX 





00044 


ft 


000000 




GET2 





00045 


R 


000000 




GET3 





00046 


R 


000000 




PUTP 





00047 


R 


000000 




PUTC 





00050 


R 


000000 




PUT6 





00051 


R 


000000 




SORTCN 





00052 


R 


000000 




LASTOP 









000053 




EFOPs. 




00053 


ft 


000000 




ATSH 






/TOP OF PUSH-DOWN LIST 
/3 REG AREA BELCH TEXT AND VARIABLES 
/«S£0 TO CONSTRUCT VARIABLES AND FILE 
/NAMES(FIL£0i AND F1LE02 CONjAlN SAME AODR> 

/start of text 

/last location of text 

/next location in buffer (variables) 

/aboreSS Of last cohmon variable 

/address of first common variable 

/address of last variable 

/command buffer start 

/AND END 

/BUffe" 0*TA POINTERS 



/TEXT POINTERS 
/OUTPUT INDEX 
/UNPACK SWITCH 
/UNPACK STORAGE 

/POINTER For moOiFy 

/last char for getc 

/variable count 

/output char 

/output counter for header pair 

/Temp for pack 

/«= GETcJ »8> = READC 



/IN LIBRARY MODE 



POINTER 
(2'S COMP) 



/AScII STRING 

/CHAR COUNTER 

/TEMP 

/TEMP 

/TEMP 

/ASCII STRING POINTER 

/CHAR COUNTER 

/TEMP 
/NUMBER IN TABLE FROM SORTc 
/LAST OPERATION FOR EVaL 
/FUNCTION CODE. 
/ASK-TYPE CODE. 



roCAL 



PACE 



00054 


R 


777760 




CNTR 


-20 


00055 


R 


000004 




DECP 


4 


00056 


R 


000000 




ADO 


XX 


00057 


R 


000000 




XCtIN 


XX 


00060 


R 


000001 




nagsm 


0001 


0006^ 


R 


000215 




chaR 


215 


00062 


R 


000000 




LiNrNO 


0000 


00063 


g 


000114 




PC *• 


FrST*1 


00064 


000000 




thisln 





00065 


R 


000000 




thisop 





000||6 
0000' 


R 


000000 




laSTln 





R 


00000^ 




dcbgsw 


1 


00070 


R 


000001 




Dmpsm 


1 


00071 


R 


000000 




PACKst 





00072 


R 


000000 . 




PTi 





00073 
0007* 


R 


000000 




IJ 





R 


000000 







00075 


R 


000000 




S*CH 





00076 


R 


000000 




FLArC 





00077 


R 


000000 









00100 


R 


000000 









00101 


R 


000000 




FUARG2 





00102 


R 


000000 









00103 


R 


000000 










SUPENO=. 



/DELETE AND ERROR cOUNTER(USEO BY F.P. ALSO). 

/NUMBER OF DECIMAL POINTS 

/ChAR. BUp. IN. (DEBUG AiDs.SEE BEuOH.) 

/PACK shItCH 

/NOT ALL aNQ/OR GROUP SHiTcH < 4B00=ONES i=ALL;b=GROUP) 

/The most important register 



/LINc 



BY 



GeTLN 



^r NUHBrR RrAp 
/PpOGf,AM COuNtEr 
/LINE POINTER FROM 'FINDLN' 
/CURRENT 'EVaL' OPERATION- 

/back pointer from 'finoln' 

/deb"g switch ; non-Zero for liteRaL. 

/»0 for TrACe on- 
/RuBOgt PRO-i-ECtION 

/Variable pointer 

/temporary register - main 

/Temp register - for ne" imst. routines. 

/se*Rch ch*r storage 

/DATA TEMPORARY STORAGE 



.iroEF MULT I 
.ENOC 



00104 
00105 
00106 
00107 
00110 
00111 
00112 
80113 
00114 



000000 
800000 
000000 
000107 
000000 
505175 
000000 
000000 
800000 



/NON-REENTRaNT 
/ 



Variables 



BOX 
ER2T 
ERR2CT 
OP 



Ranpt 
frst 



/for dicit print 
/error temp 
/ErrOr count 



00115 


R 


034006 


A 




, 


00116 


R 


170301 


A 






00117 


R 


147140 


A 






80120 


R 


266601 


A 






00121 


R 


771500 


A 




1 


00122 


R 


000000 


A 


SIGN2 


a 1 



00123 


R 


000000 


A 


scount 









000124 


R 


PLCE=. 




00124 


R 


000000 


A 


FCOUNT 





00125 


R 


000000 


A 


TEMPO 





00126 


R 


000000 


A 


REMAIN 






XX 

.SIXBT /()=/ 







.IFOEF PDP15 

.SIXBT /C F0CAL15 V6A/<77><15> 

.ENOC 

.IFUNO PDP15 

. SIXBT /C F0CAL9 V6A/<77><15> 



/VARIABLE NAME (.SIXBT) 

/pusEoo Random pointer 

/TEXT POINTER 
/OUMMT LINE NUMBER 



ENOC 



/TEMP SIGN 



roCAL 



PAgE 



30127 


R 


000(10(1 




DIGIT 





001^0 


R 


000?0fl 




ISIGM 





00131 


R 


0f0«00 




DNUH9R 





00132 


R 


00000(^ 




BeXP 





00133 


R 


000PI00 




SEXP 









000134 




M0DBF1=. 




00134 


R 


000000 




JUMP 









000135 




M0DBF2=. 




00135 


R 


0(10000 




JUMP2 





00136 


R 


000000 




ADDR 


. 






000137 




XY=. 


/TEMP Fi 


80137 


R 


000000 




FUNAME 





001*0 


R 


000(100 




FUMCTR 





00141 


R 


000000 




FUNPTR 





00142 


R 


000000 




ArrAyN 


/ARRAY 1 










/CONSTANTS 


00143 


R 


0000I3 




PI3 


13 


00144 


R 


000P17 




P17 


17 


00145 


R 


000277 




C277 


277 


00146 


R 


000003 




P3 


3 


00147 


R 


000002 




P2 


2 


00150 


R 


000100 




C100 


100 


00151 


R 


000077 




C77 


77 


00152 


R 


000260 




C260 


260 


00153 


R 


777700 




H100 


-100 


00154 


R 


000200 




C200 


200 


00155 


R 


000177 




P177 


177 


00156 


R 


000005 




GINC 


WORDS+P 


00157 


R 


000113 




CFRS 


FRST 


00l60 


R 


000076 




FLARGP 


FLARG 


00161 


R 


060314 




FILEXT 


.SIXbT /fcl/ 


00162 


R 


000171 




CFrSX 


FlTZEr 


00163 


R 


000306 




C306 


306 


00164 


R 


000314 




C314 


314 


00165 


R 


777641 




M137 


-137 


00166 


R 


000337 




P337 


337 






000167 




Cl=. 




00167 


R 


000001 




FLTONE 


000001 


00170 


R 


200000 






200000 


00171 


R 


000000 




FLTHER 


000000 


00172 


R 


000000 






000000 


00173 


R 


000000 






000000 


00174 


R 


000040 




P40 


40 


00175 


R 


000140 




C140 


140 


00176 


R 


777640 




M140 


-140 


00177 


R 


004002 




F0CAL9 


4002 


00200 


R 


000000 








.IFDEF P0P15 

.ASCII /F0CAL15 V6A/<15> 

.ENDC 

.IFUNO P0P15 


00201 


R 


432370 


A 




.ASCII /F0CAL9 V6A/<15> 



/DIGIT STORAGE (CURRENT) 
/a=MINUS,-l=PLUS 
/NUMPE" OF DIGITS 

/DECIMAL EXPONENT 



/FUNCTION NAME 
/FUNCTION COUNTER 
/FUNCTION POINTER 



/DUMMY LINE ADDRESS 
/DATA ADDRESS 

>'PlO*TinC ADDRESS 



/FLOATING 1.0 
/FLOATING B.0 



FOCAL 



PAGE 



002(13 


K 


345(112 


A 






00204 


R 


633202 


A 






00205 


R 


06400C 


A 






00206 


R 


0^0000 


A 




.ENOC 


00207 


R 


000037 


R 


CEXl 


EXi-1 


00210 


R 


000012 


A 


RN02 


Dir.ITS*l 


00211 


R 


004045 


R 


BUFST 


BUFFER-1 


00212 


R 


000144 


A 


Cl44 


144 


00213 


R 


777634 


A 


Ml44 


-144 


00214 


R 


000004 


A 


TEN 


000004 


00215 


R 


240000 


A 




240000 


00216 


R 


000000 


A 




000000 


00217 


R 


000043 


A 


P43 


43 


00220 


R 


020000 


A 


INORCT 


20000 


00221 


R 


017777 


A 


MASK7 


17777 


00222 


R 


000007 


A 


C7 


7 


00223 


R 


620404 


R 


Table 


JMP# 


00224 


R 


000376 


R 


optabl 


0PTA8S 
.EJECT 



/FLOATING 10. 



ITaBLE 



FOCAL 



PAGE 



/'SUBROUTINE CONVENTIONS 

/ 

/DUSE AC OR 'CHAR' ON ENTRY 

/ SORTJ 

/ PRINTC 

/'2)USE 'CHAR' ONLY ON ENTRY 

f PACKC 

/ SORTC 

/ SPNOR 

/ TESTN 

/ TESTC 

/JJRETURN WITH 'CHaR* IN AC 

/ REAOC 

/ GETC 

/ PACKC 

/ SPNOR 

/ SORTC 

f PRINTC 

/ TESTC 

/ INPUT 

/4)USE AC ONLY ON ENTRY 

/ DECON 

/ 

.EJECT 



rOCAL PAGE If 



/NEW instructions: 

.DEFIN PUSHJ.A 
JMS XPUSHJ 

A 
.EnOm 
.DEEIN POPA 

Lac. polxr 

.ENOM 

•OEFIN POPJ 
JMP XPOPJ 
.ENOM 

.OEFIN PUSHA 
JMS XPUSHA 
.ENOH 

.OEFIN PUSHF.A 
JMS P02 
A 

.EnDh 

.oefin popf.a 

JMS PD3 
\ A 

.EnOm 

.OEFIN GETC 

JMS UTRa 

.ENOM 

.OEFIN PACKC 

JMS PaCBUF 

.ENOM 

.OEFIN SORTJ.A.B 

JMS SORTb 

A-1 

B-A 
.ENOM 

.OEFIN SOHTJX.A 
JMS XSORTX 

A-1 
.EnDh 

.OEFIN sORTC.A 
JMS XSORTC 

A-1 
.ENOM 

.OEFIN PRINTC 
JMS XOUTL 
• ENOM 

.OEFIN READC 
JMS XI33 
.ENOH 

.DEFIN PRNTLN 
JMS XPRNT 
.ENOM 

.OEFIN GETLN 
JMS XGETLN 
.ENOM 
.OEFIN FINOLN 

JMS xfino 



/RECURSIVE SUBROUTINE CALL 

/RESTORE AC 

/SUBROUTINE RETURN 
/SAVE AC 
/SAVE GROUP OF DaTa 

/RESTORE GROUP 

/UNPACK A CHaSaCTER 

/PACK A CHARACTER 

/SORT AND BRANCH ON AC OR CHaR 

/SORT * BRANCH ON COMMAND 

/SORT CHAR 

/PRINT AC OR CHAR 
/READ KSR-33/35 INTO CHAR 
/PRINT CtLINENO) 

/unpack «nd form a linenumber 
/Search itor a given line 



Focal 
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.ENDM 




.OF.FIH 


ENOLN 


JMS 


XENOLN 


.ENDM 




.oeriN 


RTL6 


JMS 


XRTL6 


.ENOM 




.OEFIN 


SPNOR 


JMS 


XSPNOR 


.ENOM 




.OEFIN 


TESTN 


JMS 


xtestn 


.ENOM 




.OEFIN 


TSTLPR 


JMS 


LPRTST 


.ENOM 




.OEFIN 


TSTGRP 


JMS 


GRPTST 


.ENDH 




.OEFIN 


TESTC 


JMS 


XTESTc 


.ENDM 




.OEFIN 


ERROR.* 


.DEC 




JMP 


ERR2-A 


.ENOM 




.OEFIN 


GETSGN 


LAC. 


.AB 


.ENDM 




.OEFIN 


RETURN 


JMP 


EFUN3 


.ENOM 




.IFDEF 


BF 


.OEFIN 


.^RLxIT.A 


CAL 


A 


20 




.endm 




.ENOC 




.IFUND 


BF 


.OEFIN 


.RLXIT.A 


D8R 




JMP* 


A 


.ENDM 




.ENOC 




.EJECT 





/INSERT LINE POINTERS 

/ROTATE LEFT SIX 

/IGNORE SPACES 

/PERIOD! OTHER! NUMBER 

/SKIP IF 5<S0RTcN<= n (I.E. AN L-PaR) 

/SKIP IF C(AC) s G(LINENO) 

/TERM! NUHBER! FUNCTION! LETTER 

/ERROR use 



FOCAL 
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/FOCAL COMMAND TABLES 


0022.J 


R 


777756 A 


COMLST -22 




00226 


R 


110600 A 


.SIXflT 


/IF«»/ 


00227 


R 


601356 R 


JMP 


If 


00230 


R 


041700 A 


.SiXBT 


/Do?/ 


00231 


R 


60077IS R 


JMP 


DO 


00232 


R 


071700 A 


- .SIXBT 


/G0»/ 


00233 


R 


601176 R 


JMP 


GOTO 


00234 


R 


071724 A 


.SIXBT 


/GOTO*/ 


00235 


R 


170000 A 






00236 


R 


601176 R 


JMP 


GOTO 


00237 


R 


230524 A 


,SIXRT 


/SET,/ 


00240 


R 


000000 A 






00241 


R 


601407 R 


JMP 


SET 


00242 


R 


061722 A 


.SIXBT 


/FOR*/ 


0»243 


R 


000000 A 






00244 


R 


601407 R 


JMP 


FOR 


00245 


R 


031715 A 


.SIXBT 


/COMMENT*/ 


00246 


R 


I505i6 A 






00247 


R 


2401^00 A 






00250 


R 


601210 R 


JMP 


COMMEN 


00251 


R 


031716 A 


.SIXBT 


/CONTINUE*/ 


00252 


R 


241116 A 






00253 


R 


250500 A 






00254 


R 


601210 R 


JMP 


COMMEN 


00255 


R 


052201 A 


.SIXBT 


/ERASE*/ 


00256 


R 


230500 A 






00257 


R 


602633 R 


JMP 


ERASE 


00260 


R 


272211 A 


.SIXBT 


/WRITE*/ 


00261 


R 


240500 A 






00262 


R 


601234 R 


JMP 


WRITE 


00263 


R 


151704 A 


.SIXBT 


/MODIFY*/ 


00264 


R 


110631 A 






00265 


R 


000000 A 






00266 


R 


601705 R 


JMP 


MODIFY 


00267 


R 


212511 A 


.SIXBT 


/QUIT*/ 


00270 


R 


240000 A 






00271 


R 


600512 R 


JMP 


START 


00272 


R 


220524 A 


.SIXBT 


/RETURN*/ 


00273 


R 


252216 A 






00274 


R 


000000 A 






00275 


R 


602262 R 


JMP 


RETURX 


00276 


R 


520«00 A 


.SIXBT 


/**/ 


00277 


R 


604I55 R 


JMP 


HSPX 


00300 


R 


012313 A 


.SIXBT 


/askp/ 


00301 


R 


000000 A 






00302 


R 


601603 R 


JMp 


ASK 


00303 


R 


243120 A 


.SIXBT 


/TYPE*/ 


00304 


R 


050000 A 






00305 


R 


601604 R 


JMP 


TYPE 


00306 


R 


141102 A 


.SIXBT 


/LIBRARY**/ 


00307 


R 


220122 A 






00310 


R 


310000 A 
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00311 


R 


604067 


R 


B0312 


R 


031715 




0H313 


R 


151716 




00314 


R 


00000(1 




00315 


R 


601513 




003I6 


R 


777777 




00317 


R 


011414 




00320 


R 


000000 




00321 


R 


600755 




00322 


R 


777776 




00323 


R 


011414 




00324 


R 


000000 




00325 


R 


602644 




00326 


R 


031715 




00327 


R 


151716 




00330 


R 


000000 




00331 


R 


600543 




00332 


R 


777773 




00333 


R 


172524 




00334 


R 


000000 




00335 


R 


604157 




00336 


R 


111600 




00337 


R 


604105 




00340 


R 


031417 




00341 


R 


230500 




00342 


R 


604177 




00343 


R 


131114 




00344 


R 


140000 




00345 


R 


604205 




00346 


R 


272211 




00347 


R 


240500 




00350 


R 


604220 


R 


0035I 


R 


777766 




00352 


R 


231116 




00353 


R 


604340 




00354 


R 


031723 




00355 


R 


604334 




00356 


R 


012416 




00357 


R 


604315 




00360 


R 


053020 




00361 


R 


604272 




00362 


R 


141707 




00363 


R 


604321 




00364 


R 


232124 




00365 


R 


605363 




00366 


R 


010223 




00367 


R 


602514 




00370 


R 


230716 




00371 


R 


602510 


R 





JMP 
.SIXBT 


LIBRAR 

/COMMONji/ 


/ 
ALLCMl 


JMP 


COMMON 


-1 
.SIXBT 


^ALL*/ 


/ 

ALLCH2 


-JMp 


GEXIT 


-2 
.SIXBT 


/ALL*/ 




JMp 
.SIXBT 


XSBEGn 
/COMMON?/ 




JMP 


STARTQ 


/ 

LIBCMD 


-5 
.SIXBT 


/OUT*/ 




JMp 

•SIXBT 
JMP 
.SIXBT 


LBOUT 
/IN?/ 
LBIN 
/CLOSEd/ 




JMP 
.SIXBT 


LBCLOS 
/KILLft/ 




JMP 
.SIXBT 


LBKILL 
/WRITE?/ 



JHP 



LBHRIT 



/Tables for focal functions (internal) 
/ 

FNT ABE-. -1/2X777777*1 
SIXgT /SIN/ 



FNTABF 



JMP 


fSin 


.SiXBT 


/COS/ 


JMp 


FCOs 


.SJXBT 


/ATN/ 


JMP 


ARTN 


.SIXBT 


/EXP/ 


JMP 


FEXP 


.SIXBT 


/LOG/ 


JMP 


FLOG 


.SIXBT 


/SOT/ 


JMP 


XSQRT 


.SIXBT 


/ABS/ 


JMP 


XABS 


.SIXBT 


/SGN/ 


JMP 


XSGN 
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018372 


R 


112422 


A 


00373 


F? 


602506 


R 


U0374 


R 


220116 


A 


00375 


R 


603734 


R 






000376 


R 


00376 


R 


520072 


R 


00377 


R 


120072 


R 


0i«400 


R 


220072 


R 


00401 


R 


420072 


R 


00402 


R 


320072 


R 


00403 


R 


020072 


R 


00*0* 


R 


005234 


R 


00405 


R 


005226 


R 


00406 


R 


005222 


R 


00407 


R 


005337 


R 


00410 


R 


005352 


R 


00*11 


R 


005216 


R 


00412 


R 


005212 


R 


00413 


R 


005232 


R 


00*14 


R 


000305 




00415 


R 


000256 
000416 




00416 


R 


000240 




00417 


R 


000253 
000420 




00420 


R 


000255 




00421 


R 


000257 




00422 


R 


000252 




00423 


R 


000336 




00424 


R 


000250 




00425 


R 


000333 




00426 


R 


000274 




00427 


R 


000251 




00430 


R 


000335 




00431 


R 


000276 




00432 


R 


000254 




00433 


R 


000273 




00434 


R 


000215 




00435 


R 


000275 




004-56 


R 


601670 


R 


00437 


R 


601645 


R 


00440 


R 


601655 


R 


00441 


R 


601661 


R 


00442 


R 


603657 


R 


00443 


R 


601657 


R 



rNTARE=. 

/ 

/OPERaTI 

/ 

optabs 



itable 



.SIXRT 
JMP 
.SIXRT 
JMP 



/ITR/ 

XINT 

/Ran/ 

XRAN 



ON 



Tables fOR floating point interpreter 



FGET» PTl 

FADD* PTl 

(tSUB* PTl 

FOIv* pTl 

FMUL* PTl 

FPOW, PTl 

EXITF 

FLAq 

FLsU 

FLMY 

FLDV 

FLGT 

fupt 
Nor'' 



/Table of terminators (for eVal and 
/ 

C305 305 
PER 256 
TERMS=. 
C240 



C255=. 
SMIN 

C252 

C250 

C251 



C254 
C273 

C275 
/ 

/CONTROL 
/ 

ATLIST 



240 
253 

255 
257 
252 
336 
250 
333 
274 
251 
335 
276 
254 
273 
215 
275 

Table for aSk/type operations 



/Exr 


r OR POWER 


/AoD 




/SUBTRACT 


/MULTIPLY 


/DIVIDE 


/GET 


FLOATING point 


/PUT 


FLOATING POINT 


/Normalize 


aR) 




/E - 


FOR INPUT NUMBERS 


/. - 


FOR INPUT NUMBERS 


/SPACE 


/♦ 


1 


/- 


^ 


/I 


3 


/• 


4 


/t 


5 


/( 


6 L - PARENS 


n 


1 


/< 


Iff 


/) 


11 R - PARENS 


n 


12 


/> 


13 


/. 


14 


/s 


15 


/CR 


14 


/« 


17 



JMP 
JMP 
JMP 
JMp 
JNP 
JMP 



TINTR 
TQUOT 
TCRLF 
TCRLF2 

tdump 

TASK4 
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00444 


R 


601657 


R 




JMH 


TASK4 


00445 


R 


601203 


R 




JMP 


PRCCES 


00446 


R 


601210 


R 




JMP 


PCI 


00*'»7 


R 


000?45 




ALIST 


245 




00450 


» 


000242 




C242 


24? 




00451 


R 


000241 






241 




00452 


n 


000243 






243 




00453 


R 


000244 






244 




00454 


R 


000240 




GLIST 


24(. 




00455 


R 


000254 




TLIST 


254 




00456 


R 


000273 




tlistx 


273 




00457 


R 


000215 




/ 

/□ispaTch 

/ 

ILIST 


215 

Tables 


FOR IF AND 


00460 


R 


601405 


R 


JMP 


IFl 


00461 


R 


601203 


R 




JMP 


PROCES 


00462 


R 


601210 


R 




JMP 


PCI 


00^63 


R 


601447 


R 


FLIST2 


JMP 


flihit 


00464 


R 


601507 


R 

GEN. 




JMP 

ERROR 

.DEC 


FINFIN 

11 


00465 


R 


603462 


R GEN. 


/ 

FLISTl 


JMP 


ERR2-11 


00466 


R 


601433 


R 


JMP 


FINCR 


00467 


R 


601203 


R 




JMP 


PROCES 


00470 


R 


601210 


R 


/ 
CLISTX 


JMP 


PCI 


00t7l 


R 


601512 


R 


JMP 


COMMON-1 


00472 


R 


601203 


R 




JMP 


proceS 


00473 


R 


601210 


R 


/ 

/CONTROL 
/ 
LISTfi 


JMP 


PCI 










Table for modify op 


00474 


R 


000225 


A 


225 




00475 


R 


000375 


A 


C375 


375 




00476 


R 


000207 


A 




207 




00477 


R 


000212 


A 


C212 


212 




00500 


R 


000377 
000501 
000501 


A 
R 
R 


C377 

LIST3=. 

CCR'. 


377 




00501 


R 


000215 


A 


C215 


215 




00502 


R 


000000 


A 




000 




B0503 


R 


601744 


R 


SRNLST 


JMP 


SBAR 


00504 


R 


601731 


R 




JMP 


ScHaR 


00505 


R 


601724 


R 




JHp 


scont 


00506 


R 


601726 


R 




JMP 


scontx 


00507 


R 


602003 


R 




JMP 


SCRUB 


00510 


R 


60176? 


R 


LISTGO 


JMP 


SRETN 


00511 


R 


601750 


R 


/ 


JMP 


SFOUND 



/% - 


FLO 


aTing format 


/" - 


LITERAL 


/: - 


CR 


AND LF 


/» - 


CR 


ONLY 


/J - 


SYMBOL DUMP 


/SPACE - 


END NAMES 


/. - 


END 


EXPRESSIONS 


/: - 


END 


COMMANDS 


/C.R 


- 


END STRINGS 


aTements 




/. 






/! 






/CR 






/. 






■/} 






/CR 






/. 






/! 






/CR 






/. 






/» 






/CR 







/tU - KILL LINE 

/AlTmOOE - NEXT OCCURANCE OF SEARCh ChAR. 

/BELL - NEu SEARCH CHAR 

/L.F, - END LINE SAVING REST 

/RUBOUT - DELETE LAST CHAR 



/C.R. - Eno lInE delEting rest 

/SEARCH CHAR 

/♦U 
/F.F. 

/BELL 
/L.F. 

/RUBOUT 

/CR 

/SEARCH C*aR 



.EJECT 
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IFOEF 



MULT! 



/ 








/This cOde controls 


The multuuser processing 


/ 

/ 

BUFFER:, 


OF TWO OR 


FOUR concurent focal users. 








mstart 


LAC* 


(.SC0M*2 




OAC 




Tl 




JMS 




TWOS 




TAP* 


i 


(.SC0M«3 /GET SIZE 




CLL! 


Ra" 


/DIVIDE 8T TWO OR FOUR 




.IFDEF 


USR4 




cll: 


rar 






.ENOC 






OAC 




ENoT /amt for Each 


/DETERMINE IF 


BG OR 


FG IN BF ENVIRONMENT 


/.SCOM+26 


s 


IF FG 


, X 1 IF BG 




LAC« 


1 (.SC0M*26 




SNA 








JMP 


FCflY 






LAC 


BGl 






.IFOEF USR4 




DAC 


scano 


/SET PROCESSING LOOP TO bTPaSS IOLEC 




JMP 


FGBY 


- 




.ENOC 






OAC 


WAIT3 




FGElY 


LAC 




Tl /CO INITIALIZE Rl 




DAC 




BUFl 




OAC 




FILAl 




DAC 




FIL81 




DAC 




FILCl 




TAD 




(3 




OAC 




ENOTl 




DAC 




ENOTl+1 




DAC 




ENOTl+3 




DAC 




ENDTl+4 




LAW 


, 


-1 




TAD 




Tl 




TAD 




ENDT 




DAC 




BOTl 




TAD 




CI 




OAC 




Tl 




OAC 




BUF2 




OAC 




FILA2 




DAC 




FILB2 




DAC 




FILC2 




TAD 




(3 




OAC 




EN0T2 


-. 


OAC 




EN0T2+1 




DAC 




EN0T2+3 




OAC 




EN0T2+4 




LAW 




-1 




TAD 




Tl 




TAO 




ENOT 




OAC 




B0T2 
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.IFOrF USR4 

TAD CI 

OAC Tl 

DAC Burs 

DAC riLA3 

OAC FILB3 

OAC riLC3 

TAO (3 

DAC EN0T3 

DAC ENDT3+1 

DAC ENOT3+3 

OAC ENDT3+4 

LAW -1 

TAD Tl 

TAD ENDT 

OAC 80T3 

TAD CI 

OAC Tt 

OAC eUF4 

DAC riLA4 

OAC FILB4 

OAC FILC4 

TAO (3 

OAC ENDT4 

DAC ENDT4+1 

OAC EN0T4+3 

OAC ENDT4+4 

LAW -1 

TAD Tl 

TAD ENOT 

OAC 80T4 

.ENDC 

.INIT TTOl,l,CPl+400800 

.INIT TTO2.1.CP2*400000 

.IFDEF USR4 

.INIT TTO3.1.CP3+4B0000 

.INTT TTO4,1.CP4*4«0000 

.ENDC 

.HRITE TTO1.2,FOCAL9,40 

.MRITE TTO2,2.FOCAL9,40 

.IFDEF USR4 

.WRITE TTO3,2.FOCAL9,40 

.WRITE TTO4,2.FOCAL9.40 

.ENDC 

JHP WAITl 



CTLPl 
CTLP2 

.IFOEF USR4 
CTLP3 
CTLP4 

.ENDC 
GPl 

ISZ CTLPl 

.RLXIT CPl 
CPt 9 
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ISH CTLP2 
.RLXIT CP2 
.IFOfF USR4 

CP3 a 

ISZ CTLP3 
.RLXIT CP3 

CP4 ? 

ISZ CTLP4 
.RLXIT CP4 
.ENOC 
.EJECT 
PROCESSING LOOP 



/MAIN 
WAITl 

waitbi 



WAIT2 
WAITB2 



WAIT3 



WAIT3 
WAITB3 



WAIT4 
HAITB4 



SCANQ 
/SCANQ 



BGl 
/ 

/RUN I 
RUN 



.WAITH 

.Waits 

LAC 
JMS 

.waitr 

.WaITR 

LAC 

JHS 

. IFUND 

NOP 

.ENOC 

.IFOEF 

.haitr 

.WAITR 
LAC 
JMS 

.WAITR 
.WAITR 
LAC 
JMS 
.ENOC 
CAL 
WILL CONT 
14 

IOLE*700000 
-12 

CAL»1008 
17 

CAL*lB(?a 
14 

!OLE*7("0tl00 

JMP HAITI 



.EJECT 

NITIaLIZaTiON 
f! 

OAC 
SAO 
JMP 
LAC 
DAC» 
LAC 



TTI1.WAIT2 

TTI1.WAIT2 

<AREA1-1 

RUN 

TTI2.WAIT3 

TTI2,WAIT3 

(AREA2-1 

RUN 

USR4 

/MILL BE JMP HaITi IN 2 USER CASE 

USR4 

TTI3.HAIT4 

TTI3.HAIT4 

(AREA3-1 

RUN 

TTI4. SCANQ 

TTI4. SCANQ 

(AREA4-1 

RUN 

/NS - GIVE BGD SOHE TIME 
JMP WAITl IN CASE OF 4USER 



NEWUSR 
CURUSR 
RESTaX 
(MVSZe 

(bwait 



/.IDLEC ROUTINE HlLL BYPASS THIS ON 
/TIMER OVERFLOW 



/GO SEE U* ANYTHING DONE NOW 



/CHECK FOR SAME USER 

/? 

/YES - m SWAP 

/SET TO Save inline 

/TEMPOR»RIES 
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nAC« 


(17 






LAC 


MVSZE 






OAC 


RUNCT 






LAC. 


16 


/SAVE REGS LOOP 




OAC 


RUNTP 






LAC» 


RUNTP 






OAC» 


17 






ISH 


RUNCT 






JMP 


.-5 






LAC 


CURUSR 


/SWAP USERS INITULI2A 




OAC* 


(16 






LAC 


NEWUSR 






OAC. 


(17 






OAC 


CURUSR 


« 




LAC 


(SUPBGN 






OAC 


RUNTP 






LAC 


SWPSZE 






OAC 


RUNCT 






LAC. 


RUNTP 


/NOH 00 SHAP 




DAC. 


16 


;'■' 




LAC* 


17 






OAC* 


RUNTP 






iSi 


RUNTP 






iSi 


RUNCT 


A.' 




JMP 


.-6 






LAC 


(MVSHE 


/SET TO RESTORE INLINE 




OAC* 


(16 


/TEMPORARIES 




LAC 


(BWAIT 






DAC« 


(17 






LAC 


MVSEE 






OAC 


RUNCT 






LAC. 


16 


/RESTOR REGS LOOP 




OAC 


RUNTP 


v.- 




LAC. 


17 






OAC» 


RUNTP 






ISH 


RUNCT 






JMP 


.-5 




RESTAX 


CAL 


'" '■ 






14 








TIME + 7C10000 






-12 








02m delay 








LAC» CtLP 








sza 








JMP RECOVR 






JMP» 


RESTaR 


/GO START UP USER 


/I/O BUSY 


OR OUT OF 


TIME RETURNS HERE 


lOBUSY 











LAC 


.-1 


/GET RETURN PQ 




OAC 


RESTAR 






.IFOEF 8F 








CAL + 10P)0 




/CLEAR OUT CALL FOR TIME 




14 








TlME+700000 
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.EMOC 

JMP» RUN 
/ 

RUNTP 
RUNCT 9 
DELAY f 

TIME /SET OELaY on OVERFLOW 

!S2 DELAY 

.HLXIT TIME 
/ 
IDLE /FORCE RETURN TO FGO 

.RLXIT IDLE 
/ 

.EJECT 
/ 

/COMMUNICATION BLOCK 
/ 
CURUSR SHP8GN-1 /CURRENT USER aREA-1 

NEWUSR /NEW USER aREa"! 

/ 

/SPECIAL POINTERS FOR SaVe/RESTORe 

/ 

MVSZE .+1-MVEND 

FLAC14 XX /.AA 

FLAC15 XX /.AB 

FLAC16 XX /.AC 

FRST 

LIST3+1 

10 

11 

12 

13 

14 

IMBF01 

IMBF02 

Inbfbi 

OTBF01 

FLINTP 

XI33 

KOUTL 

INPUT 

DECON 

OECONV 

IMAGER 

IMAGEH 

RCAL01 

RCAL03 

WCAL01 

WeAL03 

WCAL04 

L8IN01 

LBINIA 

LBIN02 

LBIN03 



FOc*L 
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LBOUTl 

LB0UT2 

LB0UT3 

LeOUT4 

FILECIl 

FILE?2 

FILE03 
HVENOr. 
/ 

/SaVe aReaS and rUffers for Each job 

/ 

aReai xshegn 

CTLPl 
WAlTBl 

9 

e 

e 

CI 

fi 

I«B1 
IMBl 
INBl 
OTBl 








200a+TTil 
3a00+TTll 

20aa+TToi 

3B00+TTO1 
2000+TTOl 

a 
a 

a 
a 
a 
a 
a 




FiLAl 
riLBl 
FILCl 
BOTl 
BUFl 
-ENDTl 




xx 

XX 
XX 



/RESTART -1 REG 
/FLaC -3 REGS 



/FRST 
/LIST3*1 
/AUTOXR -5 REGS 



/BUFFER HEADER POINTERS -4 RECS 



/SUBROUTINE ENTRV POINTS - i0(8) REGS 



/CAl saves -14<8) REGS 



/EilE pointers - 3 REGS 
/FREE CORE POINTERS - 5 REGS 
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XX 

XX 

XX 

XX 

CMBl /COMBUr=COMEIN 

CMRl+77 /COMBOTrCOMOUT 

IHr1*2 /IMBUf-P=IMBUrF + 2 

InB1*2 /lNBUFpslMBUf+2 

0TBi»2 /0TBUFP=0UTBUF*2 

9 /AXOUT <TEXTP) 

a /XCTX 

/GTEM 

tl /MOOSUr 

215 /ENDCR 

9 /GETVCT 
/SAVEOT 
-1 /PUTCNT 
/TEMPK 
/INSUB 
TTIl /TTIN 
TTOl /TTOUT 
BKIl /BLKIN 
8K01 /BLKOUT 
/LIBRSW 
/EXl 

/ACIH 

/ACIL 

/OVERl 

/0VER2 

10 /FISH 
/GETP 
/CETCX 
/GETlX 
/GET2 
/GET3 
0TB1»2 /PUTP 
/PUTC 
/PUT6 

/SORTCN 

/LASTOP 

/ATSW <EFOP) 

-20 /CNTR 

4 /DECP 

/ADD 

/XCTIN 

1 /NACSM 
215 /CHAR 

/LIN£NO 

rRST*l /PC 

/THISLN 

/THISOP 

/LASTLN 

1 /OEBGSW 
1 /DMPSW 
■ yPACKST 



FOCAL PACE ?3 









































































areais=. 


,-AREA1 




IMBl 


2003i C; 


a: -1 


INBl 


.BLOCK 


60 




.ASCI I 


<15> 


OTBl 


10H0 






.BLOCK 


57 




.ASCII 


<15> 


CMBl 


.BLOCK 
215 


100 


/ 






AREA2 


XSBEGN 

CTLP2 

HAITB2 





















ImB2 

IHB2 

INB2 

0TB2 





/PTl 

/Tl 

/T2 

/SACH 

/FLaRG -3 REGS 



/FL*Rc2 -3 REcS 



/RESTART - 1 REG 
/FLaC - 3 REGS 



/FRST 
/LIST3*1 
/AUTqXR - 5 REGS 



/BUFFER HEADER POINTERS - 4 REG 
/SUBROUTINE ENTRr POINTS - 10(8) REGS 































2000+TTi2 


/cal saves ■ 


- lt(S) REGS 


300a+TTl? 






2000+TTO2 






3000+TTO2 






2a00*TTO2 



























.0 - ;...■ 
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flLA2 
FILB2 
FILC2 
eOT2 

BUF2 

E(*DT2 




7 

9 

91 


XX 

XX 

XX 

XX - 

XX 

XX 

XX 

CM82 

CHS-?*?? 

tHB2*2 

lNe2»2 

0TB2*2 

9 

9 



9 

215 

9 

9 

-1 





TTI2 

TT02 

BKI2 

BK02 

9 

9 









10 











0TB2+2 









-20 



''File pointers - 3 regs 



/FREE CORE POINTERS _ ^ REGS 



/COMbUFsCOMEIN 
/ceMBOTsCOMOUT 
/INbUFP=IMbUFF*2 
/lNBUfP=lNeuF+2 

/otbofp=outbuf*2 

/AXOUT(TEXTP) 

/XCTX 

/CTEM 

/M9DBUF 

/ENDCR 

/GETVCT 

/SAVEOT 

/PUTCNT 

/TEHPK 

AINSUB 

/TTIN 

/TTOUT 

/BLKIN 

/BLKOUT 

/LIBRSH 

/EXl 

/AClH 

/AClL 

/OVERl 

/0VER2 

/FISW 

/CETP 

/GETCX 

/GETIX 

/GET2 

/GET3 

/PUTP 

/PUTC 

/PUT6 

/S8RTCN 

/LASTOP 

/ATSW{EF0P) 

/CNTR 

/DECP 

/ADD 

/XCTIN 

/NAGSH 



FOCAL 



PACE ?5 



AREA2S=. 

IHB2 

INB2 

0TB2 



CMB2 



AREA3 



215 



FRST+1 

tl 



1 
1 












-AREA2 
2003: ffll 
.BLOCK 
.ASCII 
1000 
.BLOCK 
.ASCII 
.BLOCK 
215 

.irOEF 

xsbegn 

CTLP3 

MAITB3 





















IMB3 

IMB3 

INB3 

0TB3 



















-1 
60 
<15> 

57 
<15> 

100 



U$R4 



/CHAR 

/LINENO 

/PC 

/THISLN 

/THISOP 

/LASTLN 

/DEBGSW 

/OKPSW 

/PACKST 

/PTl 

/Tl 

/T2 

/SACH 

/flarg - 



3 REGS 



/FLARG2 - 3 REgS 



/RESTART - 1 REG 
/FLAC - 3 REGS 



/pRST 

/LIST3+1 

/AUTqXR - 5 REGS 



/BUFFER HEADER POiNTERS - 4 REG 



/SUBROUTINE ENTRY POINTS - 10(8) REG 
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PACE 26 





?0Pia*TTl3 




3000+TTI3 




?0PI0*TTO3 




3000+TTO3 




200a+TTO3 










































riLA3 





FILB3 





FILC3 





8OT3 


XX 


BUF3 


XX 


ENOT3 


XX 




XX 




XX 




XX 




XX 




CMB3 




CMB3*77 




1Mr3*2 




TnR3*2 




0TB3*2 
























215 














-1 














TTI5 




TT03 




BKI3 




BKO3 









fl 
























10 





























0TB3+2 



/CAL Saves - i4<8) Regs 



/Pile pointers - 3 regs 
/free core pointers - 6 recs 



/COMBUFsCOMEIN 

/CBHBOTsCOHOUT 

/IMbUFP=IMbUFF*2 

/lNBUFp=lNBUF*2 

/OTBUFPaOUTBUF+2 

/AXOUT(TEXTP) 

/XCTX 

/GTEM 

/MOOBUF 

/ENDCR 

/GETVCT 

/SAVEOT 

/PUTCNT 

/TEMPK 

/INSUB 

/TTIN 

/TTOUT 

/BLKIN 

/BLKOUT 

/LIBRSW 

/EXl 

/AClM 

/AClL 

VOVERl 

/0VER2 

/FISW 

/CETP 

/6ETCX 

/GETlX 

/GET2 

/GET3 

/PUTP 



roCAL PACE 27 








































-20 






4 




















1 






215 













rRST*l 



























1 






1 


. : '> 











e 






e 






« 





















































AREA3S=. 


,-AREA3 




IHB3 


2003; ifii 


0J -1 


INB3 


.BLOCK 


60 




.ASCII 


<15> 


0TB3 


1000 






.BLOCK 


57 




.ASCII 


<15> 


CNB3 


.BLOCK < 
215 


100 


/ 






AREA4 


XSBEGN 
CTLP4 

waITb* 








/PUTC 

/PUT6 

/SORTCN 

/LASTOP 

/ATSHtEFOP) 

/CNTR 

/OECP 

/ADD 

/XCTIN 

/NAGSW 

/CHAR 

/LINEND 

/PC 

/THISLN 

/THISOP 

/LASTLN 

/DEBGSW 

/DMPSW 

/PACKST 

/PTl 

/Tl 

/T2 

/SACH 

/FLARG - 3 REGS 



/FLARG? - 3 REGS 



/RESTART - 1 REG 
/Ft.*c - 3 ReGS 



/pRST 

/LIST3*1 

/AUToXR - 5 REGS 









IMB4 /buffer HEADER POINTERS - 4 REG 

IHB4 

INB4 . 
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0TB4 






/SUBROUTINE ENTRY POINTS - 10 (8) REG 



e 

20P0+TTi4 

30Ca+TTl4 

20PI0 + TTO4 

3000+TTO4 

2000+TTO4 









/CAl saves - 14(8) rEGs 



FILA4 





nLB4 





FILC4 





BOT4 


XX 


BUF4 


XX 


ENDT4 


XX 




XX 




XX 




XX 




XX 




CMB4 




CMB4+77 




IMb4+2 




INB4+2 




0TB4+2 
























215 














-1 














TTM 




TT04 




BKI4 




BK04 


















/File pointers - 3 regs 
/free core pointers - 6 regs 



/COMBUF=COMEIN 

/COMBOTsCOMOUT 

/IMbUFP=IMbUFF+2 

/lNBUFpslN8UF+2 

/0TbUFR»0UTbUF*2 

/AXOUT(TEXPT) 

/XCTX 

/GTEM 

/MODBUF 

/ENOCR 

/GETVCT 

/SAVEOT 

/PUTCNt 

/TEMPK 

/INSUB 

/TTIN 

/TTOUT 

/BLKIN 

/BKOUT 

/LIBRSW 

/EXl 

/AClH 

/AClL 
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10 

11 









0TP4*2 











-28 

4 



1 

215 



FRST*1 







1 

1 

















/OVERl 
/0VER2 

/risw 

/GETP 

/GETCX 

/GETlX 

/GET2 

/GET3 

• PUTP 

/PUTC 

/PUT6 

/SORTCN 

/LASTOP 

/ATSW(EFOP) 

/CNTR 

/DECP 

/AOO 

/XCTIN 

/NAGSW 

/CHAR 

/LIWENO 

/PC 

/THISLN 

/THISOP 

/LASTLN 

/0E8GSW 

/DMPSH 

/PACKST 

/PTl 

/Tl 

/T2 

/SACH 

/FLARC 



3 REGS 



AREA4S= 

INB4 

INB4 

0TB4 



CMB4 







-AREA4 
2003: 19; 
.BLOCK 
.ASCII 
1000 
.8L0CIC 
.ASCII 
.BLOCK 
215 



/FlARg2 - 3 REgS 



0; -1 
60 
<15> 

57 
<15> 

100 



.ENDC 
.ENOC 
.EJECT 
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30 




00512 


R 


200f05 


R 


00513 


R 


540003 


R 


005I4 


R 


600543 


R 


00515 


R 


201146 


R 


00516 


R 


750200 


A 


00517 


R 


200150 


R 


00520 


R 


040073 


R 


00521 


R 


200005 


R 


00522 


R 


340614 


R 


00523 


R 


340073 


R 


00524 


R 


065540 


R 


00525 


R 


200004 


R 


00526 


R 


040005 


R 


00527 


R 


340614 


R 


00530 


R 


065541 


R 


00531 


R 


200073 


R 


00532 


R 


103752 


R 


00533 


R 


365540 


R 


00534 


R 


540003 


R 


005^5 


R 


60054I 


R 


00536 


R 


220015 


A 


00537 


R 


060016 


A 


00540 


R 


600531 


R 


00541 


R 


225541 


R 


00542 


R 


600545 


R 


00543 


R 


200004 


R 


00544 


R 


040005 


R 


00545 


R 


040003 


R 


00546 


R 


040006 


R 


0054 7 


R 


4405167 


R 


00550 


R 


141146 


R 


00551 


R 


200010 


R 


00552 


R 


065542 


R 


00553 


R 


440070 


R 


00554 


R 


140502 


R 


00555 


R 


203327 


R 


00556 


R 


505543 


R 


00557 


R 


540026 


R 


00560 


R 


741000 


A 


00561 


R 


600575 


R 


00562 


R 


203'!12 


R 


00563 


R 


505543 


R 


00564 


R 


540027 


R 


00565 


R 


600571 


R 


00566 


R 


200422 


R 


00567 


R 


103273 


R 


00570 


R 


600575 


R 


00571 


R 


200422 


R 


00572 


R 


103362 


R CEIN 


00573 


R 


200475 


R 


00574 


R 


103362 


R GEN 


00575 


R 


200007 


R 


00576 


W 


065544 


R 



START 


LAC 


FRSTCV 




SAD 


lastcv 




JMP 


STaRTQ 




LAC 


MOVCOM 




SHA'.ClA 






LAC 


C100 




OAC 


Tl 




LAC 


FRSTCV 




TAD 


Ml 




TAD 


Tl 




OAC> 


(Xl5 




LAC 


bufr 




OAC 


frstcv 




TAD 


Ml 




OAC* 


(X16 


startu 


LAC 


Tl 




JMS 


TWOS 




TAD, 


(Xi5 




Sao 


LaSTcV 




JMP 


STARTC 




lac« 


X15 




OAC» 


X16 




JMP 


STArTL 


STaRTC 


LAC. 


(X16 




JMP 


STARTS 


starto 


LAC 


BUFR 




OAC 


FRSTCV 


starts 


OAC 


LASTCV 




OAC 


lastv 


STaRTZ 


ISZ 


OEBGSN 




dZm 


MOVcOM 




LAC 


combot 




OAC* 


(POLxR 




ISE 


DMPSW 




02M 


LIST3+1 




LAC 


RCAL01 




AHO 


mi 




SAD 


TTIM 




SKp 






JHP IBAR 






LAC WCAL01 




AND 


f777 




SAO TTQUT 






JMP IBARX 






Lac c252 






JMS IMAqE 


W 




JMP I BAR 




IBARX 


LAC C252 
PRINTC 






JMS 


XOUTL 




LAC 


C375 




PRINTC 






JMS 


XOUTL 


IBAR 


LAC 


COMBUF 




OAC* 


CAXIN 



/ANY COMMON? 

/NO - GO Reset pointers 



/SETUP NEN COMMON STaRT 



/ant HORE COMMON? 
/NO 

/yeS - MOVE Reg 

/SET NEW LAST AOOR 



/AND Variable pointers 

/DISABLE TRACE FOR INPUT 

/PROTECT COMMAND BUFFER 

/INIT UNPACK AND TRACE SWITCH 
/CLEAR SEARCH CHARACTER FOR INPUT 
/IS INPUT TTY IN? 



/DON'T PRINT • 

/MAKE SURE TTY OUT 

/IF NOT TTY OUT USE IMaGE MOoE 

/ANNOUNCE PRESENCE 



/INITIALIZE COMMAND BUFFER. 
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PACE 
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00577 


R 


140057 


R 






DHM 


XCTIN 




00600 


R 


200162 


R 






LAC 


CERSX 




00601 


R 


040(?'63 


R 






DAC 


PC 




00602 


R 








IGNOR 


READC 




/READ COMMAND STRING 


00602 


R 


103322 


R 


GEN. 




JMS 


XI33 




00603 


R 


540S01 


R 






SAD 


C215 




00604 


R 


600607 


R 






JMP 

packc 


IRETN 


/SaVF string CHARACTER. 


00605 


R 


103''62 


R 


GEN. 




JMS 


pacbuf 




00606 


R 


600602 


R 




///// 


JMP 


IGNOR 




00607 


R 








IRETN 


Packc 




/ Pack c.R. 


00607 


R 


10356? 


R 


GEN» 




JMS 


PACBUF 




00610 


R 


440063 


R 






ISZ 


PC 




00611 


R 


200007 


R 






L*C 


combuf 


/INITIALIZE "TEXTP- 


00612 


R 


340167 


R 




GONE 


TAD 


CI 




00613 


R 


040014 


R 






OAC 


AXOUT 


/SETUP CURRENT LINE 


00614 


R 


777777 


A 




Ml 


LAW 


-1 




00615 


R 


040015 


R 






DAC 
GETC 


XCTX 


/READ FIRST CHARACTER. 


00616 


R 


I02752 


R 


GEN* 




JMS 


UTRA 




00617 


R 


200000 


R 






LAC 


BOTTOM 


/IMIT PUSH-DOWN-LIST 


00620 


R 


065542 


R 






DAC* 
SPNOR 


(PDLXR 




00621 


R 


102233 


R 


GEN. 




JMS 

TESTN 


XSPNOR 


/DOES THE LINE BEGIN MITH 1 


00622 


R 


102?42 


R 


GEN* 
GEN* 




JMS 

ERROR 

.DEC 


XTESTN 

1 




006^3 


R 


603474 


R 


GEN* 




JMP 


ERR2-1 




00624 


R 


741000 


A 






SKP 






00625 


R 


600640 


R 






JMP 


INPUTX 


/YES 


00626 


R 


140067 


R 






O2M 


OEBGSm 


/ENABLE tRACE 


00627 


R 


14006? 


R 






OZM 
PUSHJ 


LINENO 
PROC 


/PROCESS IMMEDIATE COMMAND. 


0062<3 
00631 


R 


l0i^00 


R 


GEN* 




.^MS 


XPUSHJ 




R 


001204 


R 


GEN* 






PROc 




00632 


R 


220063 


R 






lAC* 


PC 


/CHECK NEXT liNE <X-„Em> 


00633 


R 


741200 


A 






SNA 




/EMO OF PROGRAM? 


00634 


R 


600547 


R 






JMP 


START2 


. /YES 


00635 


R 


040063 


R 






OAC 


PC 


/SAVE NEK LINE NO 


006^6 


R 


340167 


R 






TAD 


CI 


/START NEW LINE 


00637 


R 


600612 


R 




///// 


JMP 


GONE 


/PHOqeSS OTHeR cOMMANqS 


006^0 


R 








INPUTX 


GETLN 




/READ THIS LINE NUMBER 


00640 


R 


100664 


R 


GEN* 




JMS 


xgetln 




00641 


R 


200060 


R 






LAC 


NAgSU 




B0642 


R 


750100 


A 


GEN* 




SMA'CLA 

ERROR 

.DEC 


2 


/tEst for single Line 


00643 


R 


603473 


R 


GEN* 




JMP 


ERR2-2 




00644 


R 


101146 


R 






JMS 


MOVCOM 


/OFFSET COMMON 


00645 


R 


200004 


R 






LAC 


BUFR 


/SET POINTERS 


00646 


R 


065544 


R 






OAC. 


(AXIN 




00647 


R 


140057 


R 






OZM 


XCTIN 


,..-, 
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00650 R 

00651 R 

00652 R 



20006? R 
060010 A 
751(100 A 



00653 R 102752 R CEN» 



00654 R 

00655 R 

00656 R 

00657 R 

00660 R 

00661 R 

00662 R 

00663 R 



103562 R CEN, 

540501 R 

741000 * 

500653 R 



101100 
002550 

103051 
600512 



R GEN" 
R GEN» 



R CeN" 
R 



LAC 
OAC» 

SKP!cLa 

GETC 

JMS 

PaCKc 

JMS 

SAO 

SKP 

JMP 

PUSHJ 

JMS 

endln 

JMS 
JMP 
.EJECT 



LINENO 
AXIN 



utR* 

PACBUF 
C215 

.-4 

DELETE 
XPUSHJ 
DELETE 

XENDLN 
START 



/SAVE LINE » 
/(X-MEM) 

/READ 1ST AFTER uINEnO TERminATqR. 

/SaVe space aNO others - RESTORE DaTa FIELD 

/TEST FOR END 

/REMOVE OLD LINE. IF ANY, 

/INSERT NEW LINE 
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00664 

0066? 

00666 
00667 
00670 
00671 
00672 
00673 
00674 
00675 
00676 

00677 
00700 
00701 
00702 
00703 



00704 R 

00705 R 

00706 R 



00707 R 

00710 R 

00711 R 



000000 
102233 

102242 
740000 
600736 
140025 
165522 
165523 
140037 
104550 
200037 

100770 
740010 
040062 
500155 
750200 



603472 
225523 
740200 



603472 
102242 
I02752 



/TEXT LINE BUFFE" FORMAT* 
/#1 : POINTER OR Hero in LAST 
/#2 : LINENO 
/*3 - #N+1 : TEXT 
/#N : C.R. 
A xGEtLN 

SPNOR 

r gen» jms xspnor 
testn 

R GEN» JHS XTESTN 

A NOP 

R JMP TESTA 

R , DZH INSUB 

E 02M» .A8 

E 0ZH» .AC 

R OZM 0VER2 

R JMs DECON 

R LAC 0VER2 

RTL6 

R GEN. JMS XRTL6 

A RAL 

R DAC LINENO 

R AND Pi77 

A SZAICLA 

ERROR 3 

GEN» .DEC 

R GEN« JMP ERR2-3 

E LAC" .AC 

A SZA 

Error 3 
GEN* .DEC 

R GEN» JMP ERR2-3 

TESTN 
R GEN, JMS XTESTN 

GETC 
R GEN» JMS UTRA 



/OTHER 



00712 R I02242 R GEN* 











GEN» 


00713 


R 


603470 


R 


GEN* 


00714 


R 


600755 


R 




00715 


R 


744000 


A 




00716 


R 


742010 


A 




00717 


R 


340051 


R 




80720 


R 


740010 


A 




B0721 


R 


340062 


R 




B0722 


R 


040062 


R 




00723 


R 


102752 


R 


GEN» 


00724 


R 


102242 


R 


GEN* 
6EN* 



TESTN 

JMS 

ERROR 

.OEC 

JMP 

JMP 

CLL 

RTL 

TAD 

RAL 

TAD 

DAC 

GETC 

JMS 

TESTN 

JMS 

ERROR 

.OEC 



XTESTN 

5 

ERR2-5 
GEXIT 



SORTCN 

LINENO 
LINENO 

UTRA 

XTESTN 
5 



/DEVELOP I.D. - "GEtLN" 

/IGNORE LEADING ZEROS aNO SPacES. 



/CALL 'GETC FROM 'INPUT' FROM 'DECON' 



/GROUP TOO LARGE 
/YES 

/GROUP TOO LARGE 

/TEST3 

/READ STEP NUMBER. 

/TEST4 

/dOUbLE PERIOqS 



/OTHER 
/NUMBER •12 



/GET FINAL DIGIT 

/TESTS 

/MULTIPLE PERIODS 
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807?5 


R 


603470 


R 


GEN* 


00726 


R 


600755 


R 




8B7?7 


R 


340(?6? 


R 




00730 


R 


340«»62 


R 




00731 


R 


102752 


R 


GEN, 


00732 


R 


102242 


R 


GEN» 


00733 


R 


741000 


A 




00734 


R 


600755 


R 


GEN- 


00735 


R 


603467 


R 


GEN* 


00736 


R 


200061 


R 




00737 


R 


540450 


R 




00740 


R 


604224 


R 




B0741 


R 


140062 


R 




02742 


R 


101321 


R 


GEN, 


00743 


R 


000453 


R 


GEN* 


00744 


R 


600755 


R 




00745 


R 


777767 


A 




00746 


R 


102110 


R 




00747 


R 


220001 


R 




00750 


R 


741200 


A 




00751 


R 


600755 


R 




00752 


R 


102040 


R 


GEN* 


00753 


R 


0003I5 


R 


GEN* 
GEN* 


00754 


R 


603446 


R 


GEN* 


00755 


R 


200062 


R 




00756 


R 


500155 


R 




00757 


R 


754200 


A 




00760 


R 


740002 


A 




00761 


R 


340062 


R 




00762 


R 


501347 


R 




00763 


R 


751200 


A 




00764 


R 


340147 


R 




00765 


R 


740020 


A 




00766 


R 


040060 


R 




00767 


R 


620664 


R 





00770 


R 


000000 n 


00771 


R 


744000 A 


00772 


R 


742010 A 


00773 


R 


742010 A 


00774 


R 


742010 A 


B0775 


R 


620770 R 





JMP 


ERR2-5 




JMP 


GEXIT 




Tad 


LINENO 




DAC 


linEno 




GETC 






JMS 


UTRA 




testn 






JMS 


XTESTN 




SKP 






JMP 


GEXIT 




ERROR 


6 




.DEC 






JMP 


ERR2-6 


testa 


LAC 


CHAR 




SAO 


C242 




JMP 


LBtExt 




OZM 


LINENO 




SORTc 


GLIST 




JMS 


XSORTC 
GLIST-i 




JMP 


GEXIT 




LAW 


-11 




JMS 


FETVAR 




LAC, 


BUFSTX 




SNA 






JMP 


GEXIT 




SORTJX 


ALLCMi 




JMS 


XSORTX 
ALLCMl-1 




ERROR 


23 




.DEC 






JMP 


ERR2-23 


gexit 


LAG 


LINENO 




And 


P177 




SZA'CLA 


CLL 




CML 






TAD 


LINENO" 




AND 


P7600 




SNASCLA 






TAD 


P2 




RAR 






OAC 


NAGSU 




JMP, 


XGETLN 


/Range 


OF ACCEPTI8LE LINE NU 


/NAGSH 






/GROUP: 


:000000 




/LINE3400000 




/ALL=000001 




XRTL6 




CLL 

RTL 

RTL 

RTL 


/ROTATE 




JMP, 


XRTL6 




.EJECT 





/OTHER 

/TEST FOR CORRECT TERMINATOR 
/TEST6 - I.E. NOT a NUMBER OR 

/TOO Large a line number. 



/Test for group NUMeE". 



''RTL6' 
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00776 
00776 
00777 

010(^0 

01001 
01002 
01003 

01003 
01004 
01005 
01006 
0l007 

01010 
01011 
01012 
0l0l2 
01013 

01014 
01015 
01016 
01017 
01020 
01021 
01022 
01023 
01024 
01025 
010^6 

01027 
01030 
01031 

01032 
01033 

B1034 
01034 



/RCCURS 
00 



01036 
01037 



01040 
01041 
01042 
01042 
01043 



R 100664 
R 200063 



101113 
0000I4 

101113 
000060 
200060 
751100 
601034 

102675 
601047 

101100 
001201 

101132 
000060 
220063 
741200 
601042 
340167 
040072 
200060 
750300 
601031 
^60072 

101343 
601042 
220072 

040062 
601003 



01035 R 603466 



101100 
00I203 
001037 



R 101132 

R 000060 

R 

R I0II32 

R 000014 



R GtH* 
R 



101055 R GEN* 



R GEN» 
R GEN* 

R GEn» 

R GEN* 

R 

A 

R 

R GEN* 
R 

R GEN« 
R GEN* 



GEN* 
GEN* 



R GEN, 

R 

R 

R 

R 



IVE OPERATE, EXECUTE, 
GETLN 

JMS XGETLN 
LAC PC 
PUShA 
JMs 
PUSHF 
JHS 



DGRP 



DGRPl 



///// 

ONE 



R 102675 R GEN* 



GEN* 
R GEn* 

R GEN* 
R GEN* 
R 

R GEN* 
R GEN* 

R GEN* 
R GEN* 



PUSHF 

Jms 

LAC 

SPAiCLA 

JMP 

FINdLN 

JMS 

JMP 

PUSHJ 

JMS 

popr 

JMS 

LAC* 

SNA 

JMP 

TAD 

OAC 

LAC 

SMAtSZA 

JMP 

TAD* 

TSTGRP 

JMS 

JMP 

LAC* 

DAC 

JMP 

FINDLN 

JMS 

ERROR 

•OEC 
JMp 

PUSHJ 

JMS 



XPUSHA 
TEXTP 
P02 
TEXTP 

n^gsw 

PD2 

NAGSw 

NAGSW 

ONE 

XFIND 

TGRP2 

PROCES-2 

XPUSHJ 

PROCES-2 

NAGSW 

PD3 

NAGSW 

PC 

DCONT 
CI 

Pti 

NAGSW 
!CLA 
.♦4 

PTI 

CRPTST 
DCONT 
PTl 
LINENO 

dgrp 



LPR0CS=,-1 



DCONT 



POPF 
J«S 

POPF 
JMS 



XFINo 

7 

ERR2-7 
PROCES 
XPUSHJ 
PROCES 

NAGSW 

PD3 

NAGSW 

TEXTP 

PD3 

TEXTP 



OR CALL 

/execute one line. a group. or all 

/Save address 
/of current line 

/Save rest of this line 



/SaVe NaGSW! chaR' anq lineno. 



/CHECK DATA FROM GETLN. 
/SKIP IF GROUP OR ALL 

/DO ONE LINE 
/INIT FOR GROUP ANo S^T ThISLN 



/EXECUTE OBJECT LINE ANO SET PC. 

/RESTORE THE DATA 

/CHECK FOR END OF TEXT (X-MEM) 
/ALL DONE 

/Save poinjeR to lineno 
/check for group 

/DO ALL 

/test group (x-mem) 

/n8t in group 

/read next line no. (x-mem) 

/qOntinue The subroutine 

/find the line 



/EXECUTE IT 



/RESTORE CHAR 



/RESTORE Text P0INTe»S 
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POP* 




01044 


R 


220013 


A 


GEN» 




LAC» 


POLXR 


01045 


R 


040063 


R 






DAC 


PC 


01046 


R 


601204 


R 




/////// 


JMP 


PROC 


0l0^7 


R 


2fl0(?64 


R 




TGRP2 


Lac 


thisln 


01050 


R 


065545 


R 






dAc* 


(XRT 


01051 


R 


220011 


A 






LAC» 
TSTGRP 


XrT 


01052 


R 


101343 


R 


GEN. 
GEN» 




JMS 

ERROR ■ 
• DEC 


GRPTST 
8 


01053 


P 


603465 


R 


GEN» 




JMP 


ERR2-8 


01054 


R 


601012 


R 






JMP 
.EJECT 


DCRPl 



/RESTORE ADDRESS OF CURRENT LINE. 

/CONTINUE PROCESSING THIS ^InE. 
/TEST FOR GOOD GROUP NUMBER. 
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?1055 


R 


000000 


A 


el056 


R 


2^^|^'7* 


R 


010^7 


R 


750001 


A 


?1060 


R 


101H67 


R 


81061 


R 


200ei74 


R 


01062 


R 


060013 


A 


01063 


R 


750001 


A 


01064 


R 


101067 


R 


0106'> 


R 


200074 


R 


01066 


R 


621055 


R 


01067 


R 


000000 


A 


01070 


R 


365542 


R 


01071 


R 


065542 


R 


01072 


R 


103752 


R 


01073 


R 


744000 


A 


01074 


R 


340006 


R 


01075 


R 


751400 


A 

GEN' 


01076 


R 


603464 


R GEN' 


01077 


R 


621067 


R 


01100 


R 


000000 


A 


01101 


R 


221100 


R 


01102 


R 


040074 


R 


01103 


R 


750001 


A 


01104 


R 


101067 


R 


011("5 


R 


341100 


R 


01106 


R 


340167 


R 


01107 


R 


060013 


A 


01110 


R 


750001 


A 


01111 


R 


101067 


R 


01112 


R 


620074 


R 


01113 


R 


000000 


A 


01114 


R 


7^0001 


A 


01115 


R 


361113 


R 


01116 


R 


065545 


R 


01117 


R 


441113 


R 


01120 


R 


777775 


A 


01121 


R 


040074 


R 


01122 


R 


101067 


R 


01123 


R 


220011 


A 


01124 


R 


060013 


A 


01125 


R 


440074 


R 


01126 


R 


601123 


R 


01127 


R 


201120 


R 


01130 


R 


101067 


R 


01131 


R 


621113 


R 


01132 


R 


000000 


A 


01133 


R 


750001 


A 


«1134 


R 


361132 


R 


01135 


R 


441132 


R 


01136 


R 


065545 


R 


01137 


R 


201120 


R 


01140 


R 


040074 


R 



/PUSHDOWN LIST CONTROLS 
T2 



XPUSHA 



PCHK 



XPUSHJ 



PD2 



MFLT 



PD3 




OAC 

JMS 

LAC 

OAC* 

CUAiCMA 

JMS 

LAC 

JMP» 



Tad* 

DAC» 

JMS 

CLL 

TAD 

SZL'CLA 

ERROR 

.DEC 

JMP 

JMP» 



LAC* 

OAC 

CLAICM* 

J^1S 

TAb 
TAD 
DAC. 

CLA!CM» 

JMS 

JMP. 



CLAiCMA 

Tad* 

OAC* 

isz 

LAW 

DAC 

JMS 

LAC* 

OAC« 

IS? 

JMP 

LAC 

JMS 

JMP* 



CLAICMA 

TAO» 

ISZ 

DAC* 

LAC 

OAC 



PChK 

TZ 

PQLXR 

PCHK 

T2 

XPUShA 

{PDLXR 
(PDLXR 
TWOS 

LASTV 

9 

ERR2-9 
PCHK 

XPUSHJ 
T2 

PCHK 
XPUSHJ 
Cl 
PDLXR 

PCHK 
T2 



Pd2 
(XRT 

P02 

-WORDS 

T2 

PCHK 
XRT 
PDLXR 

T2 

.-3 

MFlT 

PCHK 

PD2 



PD3 

P03 

(XRT 

MFLT 

T2 



/PUSHDOWN The ac - -pusha" 

^BACKUP POINTER 
/AND THEN 

/Check core usage 

/OK 
/PUSH DOWN LIST POINTER 
/BACKUP AGAIN 



/INC IN AC 

/STORAGE filled B^ PUSH-OOWN LIST 

/RECURSIVE SUBROUTINE CAll - "PUSHJ" 
/SAVE SUBR. ADDR. 

/SAVE RETURN 



/TRANSFER CONTROL 

/SAVE A FLOATING POINT NUMBER 

/COMPUTE VARIABLE ADDR 



/Fix REtu«N 
/COMPUTE PUSH. POINTER 



•PUSHF" 



/(X-MEM) 



/RESET POINTER 



/ RESTORE A FL0ATIN6 POINT NUMBER - "POPF' 
/GET VaR. ADOR. 
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B1141 


R 


220C13 


A 




LAC* 


POLXR 


01142 


P 


060011 


A 




DAT* 


XRT 


eii<3 


R 


440C74 


R 




!SH 


T2 


01144 


R 


601141 


R 




JMP 


.-3 


01145 


R 


621132 


R 


///// 


JMP» 


PD3 


011-6 


R 


000000 


A 


MOVCOM 







01147 


R 


200005 


R 




LAC 


FRSTCV 


01150 


P 


540003 


R 




SAD 


lastcv 


01151 


R 


621146 


R 




JHP» 


MOvCOM 


01152 


R 


040017 


R 




DAC 


MOOBUF 


01153 


ft 


200^03 


R 




LAC 


LASTCV 


01154 


P 


040074 


R 




DAC 


T2 


01155 


R 


340350 


R 




TAD 


ci0e 


01156 


R 


040073 


R 




DAC 


Tl 


01157 


P 


103752 


R 




JHS 


TMOS 


01160 


R 


365542 


R 




TAD* 


(PDLXR 


01161 


R 


741100 


A 

GEN» 




SPA 

ERROR 

.DEC 


16 


0ll62 


P 


nun 


R GEN» 




JMP 


ERR2-16 


01163 


R 


R 


MOVUPX 


lac» 


T2 


01164 


R 


060073 


R 




DAC* 


Tl 


01165 


P 


200074 


R 




LAC 


T2 


01166 


R 


540017 


R 




SAD 


MODBUr 


01167 


R 


621146 


R 




JMP* 


MOVCOM 


01170 


R 


340614 


R 




TAD 


Ml 


01171 


R 


040074 


R 




DAC 


T2 


01172 


R 


200073 


R 




LAC 


Tl 


01173 


R 


340614 


R 




TAD 


Ml 


01174 


R 


040073 


R 




DAC 


Tl 


01175 


R 


601163 


R 




JMP 


MOVUPX 



/MOVE 



/EXIT 



/move common area 
/*ny Common? 

/NO 



/CURRENT END 
/NEM END 

/OVERFLOW 

/MOVE BLOCK 
/Is IT *T END? 

/YES - EXIT 

/NO - BACKUP POINTERS 



.EJECT 
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/PRIMARY 


CONTROL 


AND TRANSFER 


01176 


R 








GOTO 


GETLN 




01176 


R 


1C0664 


R 


GEN* 




JMS 
FINQLN 


XGETLN 


01177 


R 


102675 


R 


GEN* 
GEN» 




JMS 

ERROR 

.DEC 


XFIND 

7 


01200 


R 


6513466 


R 


GEn. 




JMp 


ERR2-7 


01201 


R 


2P10064 


R 






LAC 


THISLN 


01202 


R 


040063 


R 






DAC 


PC 


01203 


R 








PROCES 


getc 




01203 


R 


102752 
001204 


R 
R 


GEN* 


PROC=. 


JMS 

.IFOEF 

LAC 

SZA 

JMS 

.ENOC 


UTRA 

MULTI 

DELAY 

lOPUSY 


01204 


R 


200433 


R 






LAC 


C273 


01205 


R 


040456 


R 






DAC 


TLISTX 


01206 


R 


200061 


R 






LAC 


CHAR 


01207 


R 


540501 


R 






SAO 


C215 


01210 


R 








Pel 


POPJ 




01210 


R 


602265 


R 


gEn» 




JMP 
SORTc 


XPOPJ 
GLIST 


01211 


R 


101321 


R 


GEN> 




JMS 


XSORTC 


01212 


R 


000453 


R 


GEN* 






GLIST-i 


0I2I3 


R 


601203 


R 






JMP PROCES 


01214 


R 


200032 


R 






LAC 


libRSh 


01215 


R 


740010 


A 






RAl 




01216 


R 


200061 


R 






LAC 


CHAR 


01217 


R 


540164 


R 






SAD 


0314 


01220 


R 


601223 


R 






JMP 


.♦3 


01221 


R 


741400 


A 


GEN* 




SZL 

■ ERROR 
.DEC 


31 


01222 


R 


603436 


R 


GEN* 




JMP 


ERR2-31 


01223 


R 


777767 


A 






LAW 


-11 


01224 


R 


102110 


R 






JMS 
SORTC 


FETVAR 
GLIST 


01225 


R 


101321 


R 


GEN. 




JMS 


XSORTC 


01226 


R 


000453 


R 


GEN* 






GLIST-i 


01227 


R 


741000 


A 


GEN* 




SKP 

ERROR 

.DEC 


10 


01230 


R 


603463 


R 


GEN* 




JMP 
SORTjX 


ERR2-ia 
COMLST 


01231 


R 


102040 


R 


GEN* 




JMS 


XSORTX 


01232 


R 


000224 


R 


GEN* 
GEN* 




ERROR 
.DfC 


COMLST-1 
10 


01233 


R 


603463 


R 


GEN* 




JMP 
.EJECT 


ERR2-10 



/READ THE LINE NUMBER REQUESTED 
/LOCATE IT AND RESeT TeXTP 

/NOT There 

/SET PC 

/TEST FOR END OF LINE 



/RESET IN CASE ENTRY FROM COMMON STMT 
/FIRST CHARACTER READY : USE PROC 

/EXIT "PROCESS" 

/IGNORE "SPACE".",", AND "!". 



/GET COMMAND <3 WORDS) 



/CO DO CONHANO 
/ILLEGAL COMMAND 



FOCAL 



PACE 40 



(i|1234 R 
012.T4 R 
01235 R 



///// 

801210 R C0MMEN=PC1 

/OUTPUT COMMAND TEXT 



/IS CONTINUE OR COMMENT 



01236 
B1237 
al240 
01241 
01242 
01243 



01250 
0l25l 
01252 
01253 
01254 
01255 
01256 
01257 
01260 

01261 
01262 
01263 

01264 
01265 
01266 
01267 
01270 

01271 
01272 

01273 
01274 
01275 
01276 



01244 R 

01245 R 

01246 R 

01247 R 



100fi64 
440^67 

102675 
601271 
20006? 
750200 
601246 
200501 

10336? 
741000 

103065 

102752 

103362 

540501 
741000 
601247 
220064 
741200 
601276 
340167 
040072 
200060 
750100 
36007? 

101343 
601273 
220072 
040062 
601236 

200064 
601255 

200060 
750300 
601266 

200501 



01277 R 103362 



WRITE 



R GFN» 
R 

R GEN, 

R 

R 

A 

R 

R 

R GEN. 
A 

R GEN* 

R GEN. 

R GEN* 

R 

A 

R 

R 

A 

R 

R 

R 

R 

A 

R 

R GEN* 

R 

R 

R 

R 

R 
R 



WTEST2 



WALL 



/// 

mtestg 

///// 

wx 



01300 



602265 
001300 



A 
R 
R 

R GEN, 

R GEN. 
R 



WRiTEO 



LPOPJ= 



GETLN 

JMS 

ISZ 

FINDLN 

JMS 

JMP 

LAC 

s2a:cla 

JMP .+4 
LAC 0215 

PRINTC 

JMS 

SKP 

PRNTLN 

JMS 

GETC 

JMS 

PRINTC 

JMS 

SAD 

SKP 

JMP 

LAC. 

SNA 

JMP 

TAD 

D*C 

LAC 

SMA!CLA 

TAD. 

TSTGRP 

JMS 

JMP 

lac» 

OAC 
JMP 

LAC 
JMP 



xgetln 

DEBGSH 

XFIND 

HTeSTg 

LINENO 



XOUTL 

XPRNT 
UTRA 

-XOUTL 
C2l5 

.-4 

THIsLN 

WRITED 
CI 
PTl 
NAGSW 

PTl 

GRPTST 

WX 

PTl 

LINENO 

HRITE*2 

thisln 

WTEST2 
NAGSW 



LAC 

SMa!S2a:cLa 

JMP WALL 

LAC C215 

PRINTC 

JMS XOUTL 

POPJ 

JMP XPDPJ 

.EJECT 



/SET LINENO 

/DIsABlE trace (ALWAYS OUrInC HRITE) 
/SEARCH FOR LINE NUMBER 

/NOT There or group 



/PRINT LINE NUMBER 

/PRINT Text of a line. 

/SKIP IF END OF LINE 

/TFsT fOp END OF TEXT (X-MEM) 

/EXITJqO NEXT INDIRECT LINc. 

/SAVE POINTER TO LINeNO OF NeXT (X-MeM) 



/(X-MEM) 

/TRY NEXT LINENO FOR GROUP. 



/SET LINENO (X-mEn> 



/INIT CROUP PRINTOUT 



/SKIP IF NOT ALL 
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01301 

01302 

01303 
01304 
01305 
01306 
01307 
01310 

01311 
01312 
01313 
01314 
01315 
01316 
01317 
01320 
01321 
01322 
01323 
01324 
01325 
01326 
01327 
01330 
01331 
01332 
01333 
01334 
01335 
01336 
01337 
01340 
01341 
01342 
01343 

BI344 
01345 
01346 
01347 
013^0 
01351 
01352 
01353 
01354 



^ 0001300 
R 102233 



///// 

XTESTC 



R GEN» 



101321 
000415 
60lJl7 
441301 
540163 
601316 

102242 
601317 
741PI00 
601317 
441301 
441301 
200061 
621301 
000000 
221321 
065546 
220012 
741100 
601337 
540(?61 
741H00 
601324 
221321 
740001 
365546 
040051 
741000 
441321 
441321 
200061 
621321 
000000 

50I347 
103752 
040074 
777600 
500062 
340074 
751200 
441343 
621343 



CEN> 
GEN* 



GEN< 



XTJ 
XTESTX 

XSORTC 



SEXC 



GRPTST 



P7600 





SPNOR 

JMS 

SORTc 

JMS 

JMP 

ISZ 

SAD 

JMP 

TESTN 

JMS 

JMP 

SKP 

JMP 

ISZ 

ISZ 

LAC 

JMP* 



LAC* 

OAC* 

LAC» 

SPA 

JMP 

SAO 

SKP 

JMP 

LAC. 

CMA 

TAD* 

DAC 

SKP 

ISZ 

ISZ 

LAC 

JMP« 



AND 

JMS 

DAC 

LAW 

AND 

TAD 

SNAiCLA 

ISZ 

JMP* 

.EJECT 



/TEST THE NATURE OF THE NEXT ALPHANUMERIC 
/IGNORf SPACES ANo ZfROS HeRE 



XSPNOR 

Terms 

XSORTC 

TERMS-1 

XTESTX 

XTESTC 

C306 

XT3 

XTESTN 
XTESTX 



"TESTC" 

/TEST THE Variable terminator for eVal 



/YES - SORTCN IS set 
/TEST For "F" 
/TEST FOR . OR 0-9 



/returns:T;n:f;a 



XTESTX 

XTESTC 

XTESTC 

CHAR 

XTESTC 

/SORT CHAR AGAINST TABlE - "SORTC 

XSORTC 

(XRT? /iST ARC IS LIST-i 

XRT2 



/LIST IS ENDED BY A NEGATIVE NUMBER 
/2Ano eXiT = NOT IN LIST 

/COMPARE 

/COMPUTE INCREMENT : - N 



SeXC 
CHAR 

.-5 
XSORTC 

(XRT2 
SORTCN 

/iST EXIT r YES 
XSORTC 
XSORTC 
CHAR 
XSORTC 
/AC VS LINENO - -TSTGRP" 

P7600 
TMOS 
T2 
17600 

LINENO 
T2 

GRPTST 
GRPTST 
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/CONDITIONAL TRANSFER PROCESS, 



013^5 


R 


1(5275? 


R 


GEN» 


01356 


R 


200f?61 


R 




01357 


R 


540416 


R 




01360 


R 


601355 


R 




01361 


R 


540424 


R 




01362 


R 


7410aPI 


A 


GEN* 


01363 


R 


603462 


R 


GEN. 


01364 


R 


101100 


R 


GEN* 


01365 


R 


002271 


R 


GEN» 


01366 


R 


10275? 


R 


GEN» 


01367 


n 


777776 


A 




01370 


R 


040073 


R 




01371 


R 


200077 


R 




01372 


R 


741100 


A 




01373 


R 


440073 


R 




01374 


R 


751300 


A 




01375 


R 


440073 


R 




0l376 


R 


74I000 


A 




01377 


R 


601176 


R 




B1400 


R 


102013 


R 


GEN. 


01401 


R 


000454 


R 


GEN. 


01402 


R 


000003 


A 


GEN* 


01403 


R 


102752 


R 


GEN. 


01404 


R 


601400 


R 




01405 


R 








01405 


R 


102752 


R 


GEN. 


01406 


R 


601375 


R 





IF 



M2 



1F3 



IFl 



GETC 
JMS 

LAC 
SAO 
JMP 
SAO 

SKP 
ERROR 

.DEC 
JMP 

pushj 

JMS 

GETc 
JNS 

LAM 
OAC 
LAC 
SPA 
IS2 Tj 

spassnajcla 



UTRA 
CHaR 
C240 
IF-1 
C250 

11 

ERR2-II 
EVaL-1 
XPUSHJ 
EVAL-1 

UTRa 
-2 

Tl 
FLARG*i 



!S2 

SKP 
JMP 
SORTj 
JMS 



ecTc 

JMS 

JMP 
GETC 
JMS 
JMP 
, EJECT 



Tl 



/IF (EXP) A,B,C; 



/NO SPACE aFTeR if OR ILLEGAL FORMaT. 
/EVALUATE EXPRESSION 
/MOVE PaST ">" 



/tEst -•0.+ 



/TO 



-1.-2.-3 



/COUNT COMMAS 



GOTO 

TlIST.Il'ST 

SORTB 

TLIST-i 

ILIST-TLIST 



/TRANSFER 



/SEARCH TEXT UnTIlL .SC.R, 



UTRA 
.-4 

UTRA 
IF3 



/MOVE PAST 



FOCAL 



PACE <3 













///// 


















/LOOP ( 


CONTROL SI 


atement 








001407 


R 




SET=. 






/SUBSET or "FOR". 


01407 


R 








FOR 


PUSHJ 


getarg 


/LOOPS, eTc. 


B1407 


R 


101100 


R 


gen» 




JMS 


XPUSHJ 




01410 


R 


002135 


R 


GEN. 




SPNOR 


GETARG 


/IGNORE SPACES 


01411 


R 


102233 


R 


GEN* 




JMS 


XSPNOR 




01412 


R 


540435 


R 






SAO 


C275 




01413 


R 


741f100 


A 


GEN» 




SKP 
ERROR 
• DEC 


12 


/LEFT OF "=" IN error: 'FOR' OR 'S 


8I4I4 


R 


603461 


R 


GEN* 




JMP 


ERR2-12 




P1415 


R 


200072 


R 






LAC 
PUSH* 


PTl 


/SAVE POINTER TO VARjABlE 


01416 


R 


101055 


R 


GEN» 




JMs 
PUSHJ 


XPusHA 
EVaL-1 


/GET INITIAL VaLUE EXPRESSION 


01417 


R 


101100 


R 


GEN* 




JMS 


XPUSHJ 




01420 


R 


002271 


R 


GEN* 




POPA 


EVAL-1 




01421 


R 


220013 


A 


GEN* 




LAC. 


PQLXR 




01422 


R 


040072 


R 






OAC 


PTl 




01423 


R 


105140 


R 






JMS 


FINT 


/INITIALIIE NOW. 


01424 


R 


500076 


R 






FCET FLARG 




01425 


R 


620072 


R 






FPUT. 


PTl 




01426 


R 


000000 


A 






FXIT 


















SORTJ 


TLIST.FLISTi /TeST LaST cHaR FROM "eV 


0I427 


R 


I020I3 


R 


GEN* 




JMS 


SORTb 




01430 


R 


000454 


R 


GEN* 






TLIST-1 




01431 


R 


000011 


A 


GEn* 






FlISTI-TlIST 














ERROR 


13 


/EXCESS R-PaR 










GEN* 




• DEC 






01432 


R 


603460 


R 


GEN* 


///// 


JMP 


ERR2-13 




01433 


R 


201(1(37 


R 




FINCR 


LAC 


LPROCS 


/Set OPERATION 


01434 


R 


041460 


R 






OAC 


FPUSHJ 




01435 


R 


201300 


R 






lac 


LPOPj 


/SET EXjT 


01436 


R 


041501 


R 






DAG 


FPOPJ 




01437 


R 


200072 


R 




FINCRX 


LAC 
PUSHA 


PTl 


/SAVE VARIABLE ADDRESS , 


01440 


R 


101055 


R 


GEN. 




JMS 
PUSHJ 


XPUSHA 
EVAL-1 


/EVALUATE THE INCREMENT, IF ANY. 


el44l 


R 


101100 


R 


GEN* 




JMS 


XPUSHJ 




01442 


R 


002271 


R 


GEN* 






EVaL-1 
















SORTJ 


TlIst.FlIst2 /test tehhInators 


01443 


R 


102013 


R 


GEN* 




JMS 


SORTB 




01444 


R 


000454 


R 


GEN. 






TLIST-1 




01445 


R 


000006 


A 


GEN* 






FLIST2-TLIST 












,-' ■ 


ERROR 


14 












GEN. 




.DEC 






01446 


R 


603457 


R 


GEN. 


///// 


JMP 


ERR2-14 




01447 


R 








FLIMIT 


PUSHF 


FLARG 


/SAVE THE INCRE. » 


01447 


R 


101113 


R 


GEN* 




JHS 


PD2 




01450 


R 


000076 


R 


gEn* 






FLARG 





SET' 
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PUSHJ 


EVAL-1 


/GET THE LIMIT 


01451 


R 


lfll00 


R 


GEN» 




JMS 


XPUSHJ 




01452 


R 


002271 


R 


GEN* 






EVaL-1 




0I453 


R 








FCONT 


PUSHF 


FLARG 


/Save the limit * 


01453 


R 


101113 


R 


GEN* 




JMS 


P02 




01454 


R 


000076 


R 


gEn* 




PUSHF 


FLARG 
TExTP 


/savE texT of object STaTeMEN 


01455 


R 


101113 


R 


GEN, 




JMS 


P02 




01456 


R 


000014 


R 


GEN* 




pushj 


TEXTP 

proces 


''do The Object st^^tements 


0I457 


R 


101100 


R 


GEN* 




JMS 


XPUSHJ 




01460 


R 


001203 
001460 


R 
R 


GEN* 


fpushj= 


.-1 

pOpF 


PROCES 
TEXTp 


/RESTORE REMAINING TEXT. 


01461 


R 


101132 


R 


GEN, 




JMS 


PD3 




01462 


R 


000014 


R 


GENe 




POPF 


TEXTP 
FLaRG 


/GET LIMIT 


01463 


R 


I0II32 


R 


GEN* 




JMS 


P03 




01464 


R 


000076 


R 


GEN* 




POPF 


FLARG 
FlARG2 


/GET INCREMENT 


01465 


R 


101132 


R 


GEN» 




JMS 


P03 




01466 


R 


000101 


R 


GEN. 




POPA 


FLARG2 


/GET Variable address 


01467 


R 


220013 


A 


GEN. 




LAC. 


PDLXR 




01470 


R 


040072 


R 






DAC 


PTl 




01471 


R 


105140 


R 






JMS 


FINT 


/INCREMENT AND TEST 


01472 


R 


520072 


R 






FGET. PTj 


/LOAD THE VARIABLE 


01473 


R 


100101 


R 






FAOO FLARG2 


/INCREMENT IT 


01474 


R 


620072 


R 






FPUT, PTi 


/CHANGE 


IT 


01475 


R 


200076 


R 






FSU8 FLARG 


/TEST IT 


01476 


R 


000000 


A 






FXIT 
GETSGN 






01477 


R 


225522 


E 


GEN. 




LAC* 


.AB 




01500 


R 


750300 


A 






SMA!SZA!CLA 
















POPJ 




/END OF LOOP 


0l50l 


R 


602265 
001501 


R 
R 


GEN* 


FPOPJ».- 


JMP 
-1 


XPOPJ 




01502 


R 


200072 


R 






LAC 
PUSHA 


PTl 


/SAVE AODrEss • 


01503 


R 


101055 


R 


GEN. 




JMS 
PUSHF 


XPUSHA 
FLARG2 


/Save increment again * 


01504 


R 


I0III3 


R 


GEN* 




JMS 


PD2 




01505 


R 


000101 


R 


GEN* 






FLARG2 




01506 


R 


601453 


R 




///// 


JMP 


fcont 




01507 


R 








FINFIN 


PUSHF 


FLTONE 


/SET INCREMENT TO ONE. 


01507 


R 


101113 


R 


GEN* 




JMS 


P02 




01510 


R 


000167 


R 


gEn* 






fltcne 




01511 


R 


601453 


R 






JMP 

.EJECT 


FCONT 
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GETC 




01512 


R 


102752 


R 


GEN* 


JMS 


UTRA 


B1513 


R 


200PI03 


R 


COMMON 


LAC 


startv 


01514 


R 


540006 


R 




Sad 


LaSTV 


B1515 


R 


741000 


A 




SKP 




01516 


R 


601210 


R 




JMP 

SPNOR 


COMMON 


01517 


R 


102233 


R 


GEN* 


JMS 


XSPNOR 


01520 


R 


540424 


R 




Sao 


C250 


01521 


R 


601534 


R 




JHP 
PUShJ 


COMaRY 
GeTARg 


01522 


R 


101100 


R 


GEN* 


JMS 


XPUSHJ 


01523 


R 


002135 


R 


GEN* 




GETARG 


01524 


R 






COMMX 


SPNOR 




01524 


R 


102233 


R 


GEN« 


JMS 


XSPNOR 


0I525 


R 


200006 


R 




LAC 


LaSTV 


01526 


R 


040003 


R 




DAC 


LaSTCV 


01527 


R 


200061 


R 




L*C 
sORtJ 


Char 

TLIsT.CLIsTX 


01530 


R 


102013 


R 


GEN. 


JMS 


SORTB 


01531 


R 


000454 


R 


GEN* 




TLIST-1 


01532 


R 


000014 


A 


GEN* 
CEN» 


ERROR 
• DEC 


CLISTX-TLIST 
37 


01533 


R 


603430 


R 


GEN* 


JMP 


ERR2-37 


01534 


R 






COMARY 


GETC 




01534 


R 


102752 


R 


gEn» 


JMS 
TEStC 


UTRA 


01535 


R 


101301 


R 


GEN. 


JMS 


XTESTC 


01536 


R 


740000 


A 




NOP 




01537 


R 


740000 


A 


GEN* 


NOP 

ERROR 

.DEC 


15 


01540 


R 


603456 


R 


GEN* 


JMP 


ERR2-15 


01541 


R 


777775 


A 




LAW 


-3 


01542 


R 


102110 


R 




JMS 


FETVAR 


01543 


R 


200061 


R 




LAC 


CHAR 


01544 


R 


540432 


R 




SAO 


C254 


01545 


R 


741000 


A 


GEN* 


SKP 

ERROR 

.DEC 


37 


01546 


R 


603430 


R 


GEN. 


JMP 


ERR2-37 


01547 


R 


220001 


R 




LAC. 


BUFSTX 


01550 


R 


040142 


R 




OAC 
PUSHJ 


ARRAYN 
EVAL-l 


0I55I 


R 


101100 


R 


CEN» 


JMS 


XPUSHJ 


01552 


R 


002271 


R 


GEN» 




EVaL-1 


01553 


R 


105140 


R 




JMS 


FjNT 


01554 


R 


500076 


R 




fget 


FLARG 


01555 


R 


600137 


R 




FPUT 


XY 


01556 


R 


000000 


A 




FXIT 




01557 


R 


201573 


R 




LAC 


LITX 


01560 


R 


040072 


R 




OAC 


PTl 


B1561 


R 


200427 


R 




Lac 


C251 


01562 


R 


040456 


R 




DAC 


TLISTX 



/CHECK FOR LEGALITY 
/Of COMMON STATEMENT 



/NOT LEGAL 
/OK 



commEnt 



/IS IT LEFT PaREN 
/YES - PROCESS aRRaY 
/NO - NORMAL VARIABLE 



/SET END OF COMMON 
/CHECK FOR TERMINATOR 

/FORMAT ERROR 

/CHECK FIRST CHAR 

/FORMAT ERROR 

/GET WHOLE VARIABLE 
/NAME 

/MUST BE A COMMA 

/FORMAT ERROR 

/GET VARIABLE NAME 
/SKIP COMMA AND EVALUATE 



/USE X AS COUNTER 
/SET TeRHJNaTOR 
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01563 


R 


205547 


R 




LAC 


(COMOEC 


01564 


R 


041460 


R 




DAC 


rPUSHJ 


01 56 5 


R 


205550 


R 




LAC 


(JMP COMENO 


01566 


R 


041501 


R 




OAC 


FPOPJ 


01567 


R 


601437 


R 




JMP 


FINCRX 


01570 


R 


200142 


R 


COMOEC 


LAC 


aRRayn 


0I57I 
01572 


R 


060001 


R 




OAC» 


BUFSTX 


R 


125524 


E 




JMS» 


.aO 


01573 


R 


000137 


R 


LITX 


XY 




01574 


R 


602160 


R 




JMP 


GSIA 


01575 


R 


200006 


R 


CqHENO 


LAC 


LASTV 


01576 


R 


040003 


R 




OAC 


lastcv 


01577 


R 


200061 


R 




LAC 


CHAR 


01600 


R 


540427 


R 




Sad 


CZ51 


01601 


R 


601524 


R 

CCN* 




JHP 

ERROR 

.DEC 


COMMX 
37 


•Uti 


n 


603430 


R GEN» 




JMP 


ERR2-37 



/SET OPERATION 

/SET EXIT 

/GO PROCESS aRRaY DEF 
/GET NAME 

/GET COUNTER 



/LAST PAREN7 

/YES 

/NO - FORMAT ERROR 



.EJECT 
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31603 R 

01604 R 

01605 R 

01606 R 

01607 R 



01610 
01611 
01612 
01613 
01614 



81623 
01624 

01625 
01626 
01627 
01630 
01631 
01632 



01615 R 

01616 R 

01617 R 

01620 R 

01621 R 



751001 

750«00 

040053 
140067 

75000!^ 

102013 
000446 
777767 
440053 
601636 

l0ll00 
002135 
760272 

103362 
200475 



01633 R 

01634 R 

01635 R 

016^6 R 

01636 R 

01637 R 

01640 R 

01641 R 

01642 R 

01643 " 



01644 R 

016^5 R 

01646 R 

01647 R 

01650 R 

01651 R 

01652 R 



101055 
440025 
200501 
040020 
200167 
105042 
200501 
040020 

220013 

040061 
601603 



101100 
002272 
104672 

101321 
000453 
601604 



603471 

4^0067 

I0275? 
540450 
601657 
540501 
601210 



A 
A 
R 
R 
A 

R GEN* 
R GEN* 
A GCN. 
R 
R 

R GEN* 
R GEN» 
A 

R GEN» 
R 



/INpUT- 
ASK 

TYPE 

Task 



01622 R 103362 R GEN. 



R GEN» 

R 

R 

R 

R 

R 

R 

R 

A GEN« 

R 

R 



GEN* 



OUTPUT ST 
SKPICL 
CLA 
OAC 
Oi» 
CLA 
SORtJ 
JMS 



//// 
TYPE2 



R GEN» 

R G^N* 
R 

R GEN. 

R GEN» 
R 

GEN» 

R GEN* 



///// 

TQUOT 



ISZ 
JMP 

PUSHJ 
JMS 

I.AM 

PrINTC 

JMS 

LAC C3 

PRINTC 

JMS 

PUSHA 

JMS 

IS? 

LAC 

OAC 

LAC 

JHS 

LAC 

DAC 

POPA 

LAC. 

OAC 

JMP 

PUSHJ 
JMS 

JMs 

SORTC 

JMS 

JMP 
ERROR 
.DEC 
JMP 

ISZ 

GETc 

JMS 

SAO 
JMP 
SAD 
JMP 
PRINTC 



ATEMENTS 
AlCMA 

ATSH 
0E8GSW 

ALIsT.ATLI 

SORTB 

ALIST-i 

atlist-ali 
atsw 

TYPE2 

GETaRG 

xpushj 

GETaRG 
272 



75 



/REMEMPER WHICH CALL. (-1) FOR ASK 
/0 FOR TYPE 

/RE-ENaBLE the TRACE 

ST /SPECIAL CHARACTER? 



ST 



XQUTL 



XOUTL 

XPUSHA 

INSUg 

C215 

ENDCR 

Cl 

FLINT? 

C215 
ENDCR 

PDLXR 

CHAR 

ASK 

EVaL 

XPUSHJ 

EVAL 

FLOutP 

GLIST 

XSORTC 

GLIST-1 

TYPE 

4 

ERR2-4 

DEBGSH 

UTRA 

C242 

TASK4 

C215 

PCI 



/TEST QUOTE SWITCH 
/qO aSK; SETUP PTi 

/TYPE Colon 



/Save in-line character 
/indicate 'readc 



/POINT PAST CHAR 
/READ DATA AND SAVE 



/RE-TEST LAST TERMINATOR 



/CONTINUE PROCESSING 



/DO TYPE 



/PHlNf 



/DISABLE TRACE 
/TYPE LITERALS 

/" 

/CR 
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811653 


R 


103362 


R 


GeN» 




JMS 




XOUTL 




01654 


P 


601646 


R 




////// 


JMP 




TQUOT+i 




0l655 


R 


200501 


R 




TCRLF 


LAC 




CCR 


/SLaSh=C'7,LF. 














PRINTC 






01656 


R 


103362 


R 


GEN* 




JMS 




XOUTL 




01657 


R 








TaSK4 


GETC 






/HOVf TO NEXT CHaRACTeR 


01657 


R 


I02752 


R 


GEN* 




JMS 




UTRA 




01660 


R 


601606 


R 




//// 


JMP 




TaSK 




01 661 


R 


200475 


R 




TCRLF2 


LAC 




C375 
















PRINTC 






01662 


R 


103362 


R 


GEN» 




JMS 




XOUTL 




01663 


R 


200501 


R 






LAC 




C215 


■ 


01664 


R 


103273 


R 






JMS 




IMAGEH 


. 


01665 


R 


200154 


« 






LAC 


C200 






ari666 


R 


103273 


R 






JMS 


IMAGEW 




01667 


R' 


601657 


R 






JMP 




TASK4 





/IF OEbGSW=0 : ENABLE FLIP-FLOP "oMPSH" 
/ #0= DISABLE AND RETURN ALL"?" 

/IF DMPSW = 0: TRACE ON, IF ENaBLEO 
/ #0: TRACE OFF 

/IF ROTH = : PRINT TRACE. 



01fr70 


R 






TiNTR 


GETC 




01670 


R 


102752 


R 


GEN« 


JMS 
GETLN 


utRa 


01671 


R 


100664 


R 


GEN» 


JMS 


XGETLN 


01672 


R 


200062 


R 




LAC 


LINENO 


01673 


R 


500151 


R 




AND 


C77 


01674 


R 


040055 


R 




DAC 


OECP 


01675 


R 


200062 


R 




LAC 


LINENO 


01676 


R 


740020 


A 




RAR 




01677 


R 


742020 


A 




RTR 


■* 


01700 


R 


742020 


A 




RTR 




01701 


R 


742020 


A 




RTR 




01702 


R 


500151 


R 




AND 


C77 


01703 


R 


040040 


R 




DAC 


FISW 


01704 


R 


601606 


R 




JMP 
.EJECT 


TASK 



/PASS PERCENT SlGN 

/READ FOPMaT control: "X7,03' 
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//// 


















/SEARCH 


ROUTINES 






0I705 


R 








MODIFY 


getln 




/READ LINE NO. 


01705 


R 


100664 


R 


GEN* 




JMS 
FiNOLN 


XGETLN 


/LOOK IT UP NOW. 


01706 


R 


1<?'2675 


R 


GEN* 
GEN» 




JMS 

ERROR 

.DFC 


XFINO 

7 


/NOT THERE s BAD COMMaNQ UNLESS 2E 


0I707 


R 


603466 


R 


GEN* 




JMP 


ERR2-7 




01710 


R 


101146 


R 






JMS 


MOVcOM 


''DISPLACE COMMON 


01711 


R 


200004 


R 






LAC 


BUFR 


/SET POINTERS 


01712 


R 


065544 


R 






OAC* 


(AXIN 


/FOR INPuT 


01713 


R 


140057 


R 






D2M 


XCTIN 




B1714 


R 


2<'0062 


R 






LAC 


LINENO 


/COPY The Same line number. 


0I7I5 


R 


741200 


A 


GEN» 




SNA 
ERROR 
• OEC 


7 


/CHECK FOR ALL 


01716 


R 


603466 


R 


GEn* 




JMp 


ERR2-7 


•' 


01717 


R 


060010 


A 






OAC* 


AXIN 


/(X-MEM) 


01720 


R 


225';44 


R 






LAC* 


(AXIN 


/SAVE START OF NEW LINE 


01721 


R 


040071 


R 






OAC 


packst 




01722 


R 


200007 


R 






LAC 


COMBUF 




01723 


R 


040017 


R 






OAC 


MODBLTF 


/SET MODiFY COMMAND BUFFER 


01724 


R 


103307 


R 




SCONT 


JMS 


IMAGER 


/GET SEARCH CHAR 


01725 


R 


741000 


A 






SKP 






01726 


R 


750000 


A 




SCONTX 


CLa 




/CLEAR SEARCH CHAR 


01727 


R 


040075 


R 






DAC 


Sach 


/Save search character 


01730 


R 


^'»0{f67 


R 






IS? 


OEBGSW 


/NO BREAKS. 


81731 


R 


200075 


R 




SchaR 


LAC SacH 






01732 


R 


040502 


R 






OAC LIST3 
GETC 


♦1 


/pUT IN "SoRTj" LIST 


01733 


R 


102752 


R 


GEN* 




JMS 


utRa 




01734 


R 


040061 


R 






DAC 


CHAR 


/Save for sortj 


01735 


R 


060017 


R 






DAC* 


MOOBUF 




01736 


R 


440017 


R 






ISZ 


MOOBUF 




01737 


R 


103273 


R 






JMS 


IMAGEH 
















SORTJ 


LIST3.LISTGO /LOOK FOR MATCH 


01740 


R 


102013 


R 


GEN» 




JMS 


SORTB 




01741 


R 


000500 


R 


GEN* 






LIST3-1 




01742 


R 


000007 


A 


GEn* 






lIstgo-l 


IST3 


01743 


R 


601731 


R 




ft/// 


JMP 


SCHAR 




0I744 


R 


760^00 


A 




SBAR 


LAW 


300 


/ECHO * FOR tu 


01745 


R 


103273 


R 






JMS 


IMaGEW 




01746 


R 


200007 


R 






LAC 


ComBUF 


/RESET To BEGINNING OF BUFFER 


01747 


R 


040017 


R 






OAC 


MOOBUF 




01750 


R 


140502 


R 




SFOUNO 


OZM 


LIST3+1 




01751 


R 


103307 


R 






JMS 


IMAGER 


/READ FROM KEYBOARD 


0I752 


R 


040061 


R 






DAC 


CHAR 
















SORTj 


LIST6.SRNLST /cHEcK FOR AcTlON CHANGE 


01753 


R 


15^2013 


R 


gfn* 




JMS 


Sorts 




01754 


R 


000473 


R 


GEN. 






LIST6-1 




01755 


R 


.000007 


A 


GEN* 






SRNLST-LIST6 


01756 


R 


200061 


R 






LAC 


CHAR 




01757 


R 


060017 


R 






DAC* 


MOOBUF 


/PACK CHAR 
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01760 


R 


440017 


R 


01761 


R 


6017511 


R 


01762 


R 


200S01 


R 


01763 


R 


060017 


R 


01764 


R 


200C507 


R 


01765 


R 


040017 


R 


01766 


R 


2?0017 


R 


01767 


R 


040061 


R 


01770 


R 


103562 


R GEN* 


01771 


R 


44001? 


R 


01772 


R 


540501 


R 


01773 


R 


74I000 


A 


01774 


R 


601766 


R 


01775 


R 


200477 


R 


01776 


R 


103273 


R 



SRETN 



01777 K 101100 R GEN. 
02000 R 002550 " GEN« 



02001 


R 


103051 


R GEN» 


02002 


R 


600512 


R 


02003 


R 


200017 


R 


02004 


R 


540007 


R 


02005 


R 


601750 


R 


02006 


R 


340614 


R 


02007 


R 


040017 


R 


02010 


R 


760334 


A 


02011 


R 


103273 


R 


02012 


R 


601750 


R 



SCRUB 



IS? 


MQDBUF 




JHP 


SFOUND 


/GO GET MORE 


LAC 


C2l5 




OAC" 


MQDBUF 


/Save cR 


LAC 


COMBUf 




OAC 


MODBUF 




Lac. 


modbuf 


/FINISH LINE AND 


DAC 


CHAR 




packc 






JHS 


PACBUF 




ISZ 


MODBUF 




SAD 


C215 


/END LINE? 


SKP 




/YES 


JHP 


.-6 




LAC C212 






JMs IMAGE 


M 




pushj 


DELETE 


/Repla 


JMS 


XPUSHJ 
DELETE 




ENDLN 






JMS 


XENDLN 




JMP 


START 


/RESET POINTERS 


LAC 


MODBUF 




Sad 


COMflUF 


/aT BEGINNING? 


JHP 


SFOUND 


/YEs 


TAD 


Ml 


/NO 


DAC 


MODBUF 




LAW 


334 


/ECHO PACK SLASH 


JMS 


IMAGEW 




JMP 


SFOUND 


/GO PROCESS NEXT 


.EJECT 







FOCAL 



PAGE 


51 




02013 


R 


000000 


A 


02014 


R 


741200 


A 


02015 


R 


200061 


R 


02016 


R 


040074 


R 


02017 


R 


222013 


R 


02020 


R 


442?li3 


R 


02021 


R 


065546 


R 


02022 


R 


220012 


A 


02023 


R 


741100 


A 


02024 


R 


602035 


R 


02025 


R 


540074 


R 


02026 


R 


741000 


A 


02027 


R 


602022 


R 


02030 


R 


225546 


R 


02031 


R 


362013 


R 


02032 


R 


040074 


R 


02033 


R 


750000 


A 


02034 


R 


620074 


R 


02035 


R 


442013 


R 


02036 


R 


754000 


A 


02037 


R 


622013 


R 


02040 


R 


000000 


A 


02041 


R 


222040 


R 


02042 


R 


065546 


R 


02043 


R 


220012 


A 


02044 


R 


040074 


R 


02045 


R 


200001 


R 


02046 


R 


040134 


R 


02047 


R 


140135 


R 


02050 


R 


220012 


A 


02051 


R 


560134 


R 


02052 


R 


602060 


R 


02053 


R 


042013 


R 


02054 


R 


505551 


R 


02055 


R 


560001 


R 


02056 


R 


602070 


R 


02057 


R 


6020 77 


R 


02060 


R 


500151 


R 


02061 


R 


741200 


A 


02062 


R 


620012 


A 


02063 


R 


440134 


R 


02064 


R 


440135 


R 


02065 


R 


602050 


R 


02066 


R 


220012 


A 


02067 


R 


741000 


A 


02070 


R 


202013 


R 


02071 


R 


500151 


R 


02072 


R 


740200 


A 


02073 


R 


602066 


R 


02074 


R 


200135 


R 


02075 


R 


741200 


A 


02076 


R 


620012 


A 



SORTS 



SEX 



/ 

/SORT 
/ 
XSORT) 





SNA 

L«C 

DAC 

LAC* 

ISZ 

OAC» 

LAP* 

SPa 

JMP 

Sap 
skp 

JMP 

LAC» 

TAD* 

DAC 

CLA 

JMP» 

ISZ 

CLAJCLL 

JMP» 



/SORT AND BRANCH ROUTINE. - "SORTJ" 



CHaR 

T2 

SORTB 

SORTB 

(XRT2 

XRT2 

SEX 

T2 

.-5 

(XRT2 
SORTB 
T2 

T2 
SORTB 

SORTB 



AND BRANCH ON 'COMMAND 



ANYMa 
MORMA 



ENqMaT 



YESmAT 





LAC» 

DAC* 

LAC» 

DAC 

LAC 

DAC 

DHM 

LAC» 

SAO» 

JMP 

DAC 

AND 

SAD» 

JMP 

JMP 

aNd 

SNA 
JMp» 

ISz 
ISZ 

JMP 

LAC» 

SKP 

LAC 

AND 

SZA 

JMP 

LAC 

SNA 

JMP« 



XSORTX 

(XRT2 

XRT2 

T2 

BUrSTX 

MODBFi 

M0DBF2 

XRTg 

MODBFI 

ENdHaT 

SqRTB 

(770000 

BUFSTX 

YESMAT 

NOTMAT 

C77 

XRT2 

MODBFl 

M0DBF2 

mormat 

XRT2 

SORTB 
C77 

YESMAT-2 
M0DBF2 

XRT2 



/ASSUME CHaR if aC=0 

/SAVE SORT ITEM 
/FIRST ARG IS LIST LESS ONE 

/2ANn IS intra-list length 



/••LIST ENDED B^ NEGaTIVe NUMbeR'* 
/FIND ADDRESS 

/MATCH FOUND. 

/MATCH NOT FOUND. 

/RETURN TO CALLING SEQUENCE. 

/"SORTJX" 

/GET Table start 

/sEt size 

/get command pointer 

/get command table entry 

/FULL WORq M^TcH 

/save For End test 
/one letter match 

/IS IT END OF cOMHaMd 

/OISpATCH 

/DISABLE ONE LETTER HaTcH 
/TEST REST OF COMMaMO 

/tfst For Command Eus 
/one letter ok 

/DISPaTcH 



rOCAL PAGE 52 



02077 


R 


220012 


A 


021(»0 


R 


5^5^5'^ 


R 


02l(«l 


R 


545S53 


R 


02102 


R 


7410PIP) 


A 


02103 


R 


602C^77 


R 


02104 


R 


440074 


R 


02105 


R 


6{»2045 


R 


0^106 


R 


'»^204(, 


R 


02107 


R 


622240 


R 



NOTM*T LAC* XRT2 /SKIP REST OF COHMaNd 

/ENoS WITH JMP 



/ANY MORE IN TaSLE 

/YES 

/NO - ERROR RETURN 



LAC* 


XHT2 


AND 


(700000 


Sap 


(600000 


SKP 




JMp 


.-4 


IS2 


T2 


JMP 


anymat 


ISZ 


XSORTX 


JMP* 


XSORTX 



■EJECT 



FOCAL 
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02110 
02111 
02112 
02113 
02114 
02115 
02116 
02116 



/FETCH VARIABLE FROM INPUT 



02l?a 
02121 

02l22 
02123 
02124 
02125 
02126 
02127 
02130 
02131 
02132 

02I33 

02134 



02143 
02144 
02145 

02146 
02147 



021^1 
02152 

02153 
02154 



02135 R 

02135 R 

02136 R 

02137 R 



02140 R 

02141 R 

02142 R 



000C«'30 
040(»21 
777777 
34017101 
065544 
140(^57 

103562 



02117 R 10275? 



1C1321 
0004iS 

602I30 
440fl21 

6?I2116 
777777 
040021 
602117 
440B21 
751000 
622110 
103623 
602130 



101301 
740000 
740000 



603456 
777775 

102110 

102536 
602161 
200052 

101055 
220001 



I0II00 
002271 

220013 
060001 



A FETV4R 01 

R OAC 

A LAH 

R TAD 

R OAC» 

R nZM 

getvap packc 

R GEN* JMS 

GETC 

R GEN. JMS 

SORTc 

R GEN» JMS 
R GEN* 

R JMP 

R IS2 

R JMP 

A LAW 

R OAC 

R JMP 

R GETVaX ISE 

A SKPiCLA 

R JMP» 

R JMS 

R JMP 

/Find or enter a 



getarg 



r gen» 

A 
A 

GEN» 

R GEN» 

A 

R 

R GEN. 

R 

R 

R GEN, 
R 



GETVaR 



02150 R 101055 R GEN. 



R GEN* 
R GEN* 

A GEN. 
R 



02155 R 102752 R GEN* 



02156 
B2157 



220013 
04005? 



A GEN. 
R 



TESTC 

JMS 

NOP 

NOP 

ERROR 

.DEC 

JMP 
LaW 

jmS 

TSTLPR 

JMS 

JMP 

LAC 

PUSHA 

JMS 

LAC* 

PUSHA 

JMS 

PUSHJ 

JMS 

POPA 

LAC* 

OAC* 

GETC 

JMS 

POPA 

LAC* 

OAC 



GETVCT 

-1 

BUFSTX 

(AXIN 

XCTIN 

pacbuf 

UTRA 

Terms 

XSORTC 

TERMS-1 

GETVAX 

GETVcT 

GETVAP 

-1 

GETVCT 

GETVAP+l 

GETVCT 

FETVAR 
PCKl 
GETVaX 
VARIABLE IN 

XTESTC 



15 

ERR2-I5 

-3 

FETVAR 

LPRTST 

GSl 

LASTOP 

XPUSHA 
BUFSTX 

XPUSHA 
EVAL-1 
XPUSHJ 
EVaL-1 

PDLXR 
BUFSTX 

UTRA 

POLXR 
LaSTOP 



/-3 OR -6 OR -9 
/(BUFFER-1 



/BEGIN Pack of variable name 

/PACK CHaR 



/CHECK FOR TERMINATORS 



/HaVe THREE CHAfS BEEN USED 
/NO-GO PACK THiS ONE 
/IGNORE REST 



/USE NULLS 

The LIST, 

/FIRST LETTER OF ARC 



/ FUNCTION OR NUMBER IS NOT AN ARG. 
/BAD ARGUEMENT in 'FOR', *SeT', OR 'aSK' 



/LOOK FOR SUBSCRIPT ylA SORTCN 

/NOT SUBSCRIPTED BY L-PAR. 
/SAVE LAST OPERaTIOM 



/SAVE NAME 
/MOVE Past L-PaR aNO EVAtUAlE SUBSCRIPT 



/RESTORE «AME 

/MOVE Past r-par 



/RECALL LAST OPERATION 



FOCAL 



p 


AGE 


54 














02160 


R 


105343 


R 


GSlA 


JMS 


FIX 






02161 


R 


042233 


R 


GSi 


DAC 


SUBS 


/SAVE 


SUBSCRIPT 


02162 


R 


2e000'> 


R 




LAC 


FRSTcV 


/SEARCH FOR Variable 


02163 


R 


040073 


R 


GS3 


DAC 


PTI 






02164 


R 


5401^06 


R 




SAD 


LASTV 


/TEST 


f"OR End qF LIST 


02165 


R 


6ft2l74 


R 




JMP 


GS2 




/END SEARCH 


02166 


R 


2?0C72 


R 




LAC, 


PTi 


/GET ■ 


fABLE ENTRY 


02167 


R 


560001 


R 




SAD* 


bufstx 






02I70 


R 


602221 


R 




JMP 


GFNQl 


/FOUND XX 


02171 


R 


200PI72 


R 


GS4 


Lac 


PTI 




/TRY NEXT ONE 


02172 


R 


340156 


R 




TAD 


ginc 






02173 


R 


602163 


R 




JMP 


GS3 






02174 


R 


200H06 


R 


GS2 


LAC 


lastv 


/ADD ■ 


rHE VARIA54.E 


02175 


R 


340143 


R 




Tad 


Pl3 




/TEST RAN LIMITS 


»2176 


R 


744000 


A 




CLL 








02177 


R 


103752 


R 




JMS 


TWOS 






asgca 


R 


365542 


R 




TAD, 


tPDLXR 






022C1 


R 


750400 


A 

GEN, 




snlicla 

ERROR 
.DEC 


16 






02202 


R 


603455 


R GEN. 




JMP 


ERR2-16 






022«3 


R 


200006 


R 




LAC 


LASTV 






02204 


R 


340156 


R 




TAD 


GINC 






02205 


R 


040006 


R 




DAC 


LASTV 






02206 


R 


220PI01 


R 




LAC* 


BUFSTX 




/SAVE NAME 


02207 


R 


06007? 


R 




DAC* 


PTI 






02210 


R 


44007? 


R 




IS? 


PTI 




/SaVE SUBSCRIPT 


02211 


R 


202233 


R 




LAC 


SUBS 






02212 


R 


060072 


R 




DAC* 


PTI 






02213 


R 


440072 


R 




IS2 


PTI 




/SET PTI 


B2214 


R 


105140 


R 




JMS 


FINT 






02215 


R 


500171 


R 




FGET 


FLTZER 






02216 


R 


620072 


R 




FPUT* PTi 




:?.-■■ 




02217 


R 


000000 


A 




FXIT 
POPJ 




/EXIT 




02220 


R 


602265 


R GEN* 


//// 


JMP 


XPOPJ 






02221 


R 


200072 


R 


GFNDl 


LAC 


PTI 




/FOUND Same 


02222 


R 


065545 


R 




DAC* 


(XRT 




/TEST SUBSCRIPTS 


02223 


R 


220011 


A 




LAC* 


Xftr 






02224 


R 


103752 


R 




JMS 


TWOS 






02225 


R 


342233 


R 




TAD 


sues 






02226 


R 


750200 


A 




SZAtCLA 








02227 


R 


602171 


R 




JMP 


GS4 




/HRONG SUBSCRIPT 


02230 


R 


440072 


R 




IS2 


PTI 




/SET POINTER TO 1 


02231 


R 


440072 


R 




ISZ 
POPJ 


PTI 






02232 


R 


602265 


R GEN* 




JKP 
.EJECT 


XPOPJ 


- 
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//// 
















///IGNORE 


LEADING 


SPACES - "SPNOR" 






002233 


R 


SUPS=. 








02233 


R 


0?0Cf0C^ 


A 


XSPNOR 









B2234 


R 


2P0P'61 


R 




LAC 


CHAR 




02235 


R 


540416 


R 




SAn 


C240 




02236 


R 


741000 


A 




SKP 






02237 


R 


622233 


R 




JMP» 
GETC 


XSPNOR 




02240 


R 


10275? 


R GEN. 




JMS 


UTRA 




02241 


R 


602235 


R 




JMP 


XSPN0R*2 




02242 


R 


000000 


A 


XTESTN 







/RETURNS: . ; OTHER! NUM 


02243 


R 


777522 


A 


MPER 


LAW 


-256 




02244 


R 


340061 


R 




TAD 


CHAR 


- 


02245 


R 


750200 


A 




SZAtCLA 






02246 


R 


442242 


R 




isz 


XTESTN 




02247 


R 


777520 


A 




LAW 


-260 




02250 


R 


340061 


R 




TAO 


CHAR 




02251 


R 


040051 


R 




DAC 


SORTCN 


/SAVE VALUE 


02252 


R 


751100 


A 




SPAICLA 






02253 


R 


602260 


R 




JMP 


HTESTN 




02254 


R 


777507 


A 




LAW 


-271 




02255 


R 


340061 


R 




TAD 


CHAR • 




02256 


R 


751300 


A 




SPAtSNAl 


!CLA 




02257 


R 


442242 


R 




ISZ 


XTESTN 


/IF A NUMBER 


02260 


R 


20005I 


R 


2TESTN 


LAC 


SORTCN 




02261 


R 


622242 


R 


/EXiT FRO 


JMP* 
M A "DO" 


XTESTN 
SUBROUTINE 




02262 


R 


200157 


R 


RETuRx 


LAC 


CFRS 


/(PC) => 


02263 


R 


340167 


R 




Tad 


CI 


/TO PRETEND END OF TEXT 


02264 


R 


040063 


R 




DAC 


PC 




02265 


R 


220013 


A 


XPOPJ 


LAC* 


PQLXR 


/RECURSIVE EXIT - "POPJ 


02266 


R 


040074 


R 




DAC 


T2 




02267 


R 


750000 


A 




CLA 






02270 


R 


620074 


R 




JMP, 
.EJECT 


T2 
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/EVALUATE AM EXPRESSION WHICH 
/TERMINATES WITH aN R-PaR,! OR C.R. AND 

/LEAVE The result in flac and in flaRg. 















GETc 




/MOVE Past extra chaRacTer 


02271 


R 


10275? 


R 


GEN* 




JMS 


UTRa 




02272 


R 


140052 


R 




EVaL 


qZM 

tEstc 


LaSTOP 


''e^aUaTion controller 

/TEST CHARACTER AnD [GnqrE SpACEs 


02273 


R 


101301 


R 


GEN* 




JMS 


XTESTC 




02274 


R 


602306 


R 






JMP 


ETERMl 


/TERMINATION 


02275 


R 


602417 


R 






JMP 


ENUM 


/NUMBER 


02276 


R 


602431 


R 






JMP 

pushj 


EFUN 
GeTVaR 


/FUNCTION 

/FIND OR CREATE V^R I ABLE ' aLSO SeT PT^ 


02277 


R 


l0ll(30 


R 


gen» 




JMS 


xpushj 




02300 


R 


002141 


R 


GEN* 






GeTVaR 




02301 


R 








opnExt 


tEstc 




/pTl=>ARc 


02301 


R 


101301 


R 


GEN, 




JMs 


xt^stC 




02302 


R 


602332 


R 






JMP 


ETERMN 


/T 


02303 


R 


740000 


A 






NOP 




/N-ERROR IN FORMAT 


02304 


R 


740000 


A 


GEN. 




NOP 

ERROR 

.DEC 


17 


/F 

/L - MISSING OPERATOR 


02305 


R 


603454 


R 


GEN* 


///// 


JMP 


ERR2-17 




02306 


R 


200061 


R 




ETERMl 


LAC CHAR 






02307 


R 


540435 


R 


GEN» 




Sad C275 

ERROR 

.DEC 


17 


- 


02310 


R 


603454 


R 


GEn* 




JMp 
PUSHF 


ERR2-17 

fltzer 


/INITIALIZE RESULT TO ZERO. 


02311 


R 


101113 


R 


GEN- 




JMS 


PD2 




02312 


R 


000171 


R 


GEN* 




POPF 


FLTZER 

flaRg 




02313 


R 


101132 


R 


GEN* 




JMS 


PD3 


** 


02314 


R 


000076 


R 


GEN* 






FLARG 




02315 


R 


200160 


R 






LAC 


FLARGP 


/SET PTl, 


02316 


R 


040072 


R 






OAC 


PTl 




02317 


R 


201367 


R 






LAC 


M2 - 


/TEST FOR UNARY OPERATIONS 


0232B 


R 


340051 


R 






TAD 


SORTCN 




02321 


R 


741200 


A 






SNA 






02322 


R 


602335 


R 






JMP 


ETERM 


/CREATE DUMMY FOR UNARY MINUS 


02323 


R 


340167 


R 






TAD 


Cl 




02324 


R 


751200 


A 






SNASCLA 






02325 


R 


602411 


R 






JMP 


ARGNXT 


/IGNORE UNARY PLUS 


02326 


R 


340051 


R 






TAD 


SORTCN 


/TEST FOR NULL PARENS. 


02327 


R 


342537 


R 






Tad 


Mil 




02330 


R 


751100 


A 






SPAJCLA 






02331 


R 


602475 


R 






JMP 


ELPAR 


/MIGHT BE AN L-PAH. 


02332 


R 








ETERMN 


TSTLPR 






02332 


R 


102536 


R 


GEN* 




JMS 


LPRTST 




02333 


R 


741000 


A 


GEN* 




SKP 

ERROR 

.DEC 


18 


/OPERATOR MISSING BEFORE PaREN 


02334 


R 


603453 


R 


GEN* 




JMP 


ERR2-18 




02335 


R 


200051 


R 




eterm 


Lac 


SORTCN 


/SET FROM "TESTc-.-SORTc" 


0?336 


R 


040065 


R 






OAC 


TMISOP 
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82337 
02340 

02341 
02342 

02343 
02344 
03345 
02346 
02347 
02350 
02351 
02352 
02353 
02354 
02355 
02356 

02357 
02360 

02361 
02362 
02363 
02364 
02365 
02366 
02367 
02370 
02371 



02373 
02374 
02375 

02376 
02376 
B2377 

02400 
02401 

02402 
02403 
02404 

02405 
02406 
02407 
02^10 
02411 
02411 



342537 
750100 
040f 65 
2?0fl65 
1(»375? 
340(^5? 
751100 
6?2376 
340C!52 
340224 
042362 
222362 
04236? 
200{"52 
751200 
602361 

I0II3? 

00000? 
00236C 
lf"5140 
0(»000(i| 

600076 
000000 
200160 
040072 
2305165 
340052 
751200 



FTeRm2 



220013 
040052 
602342 



102536 
741000 
602477 
200052 



R 101055 
R 200072 
R 042406 



101113 

000000 
200065 
040052 



R GEN* 

A GEN» 

R FlAC1= 

R 

A FLOP 

R 

A 

R 

R 

R 

R 

A 



02372 R 602265 " GEN» 



A GEN« 

R 

R 



///// 

EPAR 



R GEN* 
A 

R 
R 

R GEN* 

R 

R 

R GEN» 
A GEN* 
R 
R 



10275? R GEn* 



aRgnxt 



TAO 

SMA'.CLA 

DAC 

LAC 

JMS 

TAO 

SPA'CLA 

JMP 

Tad 

TAD 

DAC 

LAC* 

DAC 

LAC 

SNaJCLa 

JHP .♦s 

POPE 

JMS 



02412 R 101301 

02413 R 602475 



R GEN* 
R 



JMs 

00 

FPUT FL 

FXIT 

LAC 

DAC 

LAC 

TAD 

SNAiCLA 

POPJ 

JMP 

POPa 
LAC* 
DAC 
JMP 

TSTLPR 
JMS 

skp 

JMP 

LAC 

PUSHA 

JMS 

LAC 

OAC 

PUsHF 

JMS 

LAC 
DAC 
GETc 

Jms 

TESTC 

JMS 

JMP 



"11 

THISOP 
ThISOP 
TWOS 
LASTOP 

EPAR 

UaSTOP 

OPTaBL 

FLOP 

FLOP 

FLOP 

LaSTOP 



XX 

PD3 

XX 

FINT 



aRG 



FLARGP 
PTl 

thisop 

LASTOP 



XPOPJ 

PDLXR 

LaSTOP 

ETERm2 



LPRTST 

EPAr2 
LASTOP 

XPUSHA 

PTl 

.♦2 

XX 

PD2 

XX 

THISOP 

LASTOP 

UTRA 

XTESTC 

elpar 



/END? 

/"ThISOP" EOUIV. to END OF EXP, 

/COMPARE PRIORITIES 



/CONTINUE 

/FIND OPERATION FROM TABLE 



/TEST FOR END OF OaTa INTO FLOATING AC, 
/GET LaST DaTa 

/.AA 

/(FLOPR I PTl)*-./ 
./SAVE RESULT 



/ = 0? 

/EXIT "EVAL" 

/get prior op 

/Compare t^jS op 

/test for sub-expression 



/GO EVALUATE ExPrEssION 
/CONTINUE READING THE EXPRESSION 
/SAVE "LASTOP". 



/sAvE LAST ARGUMENT 

/MORE TO COME 
/REaO 1ST CHaR Of a* aRg. 
/DO SPECIAL CHECK 
/CaULD BE LEFT PaRE* 
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t)2414 
024I5 
0?416 

a2<i7 

02417 

02420 

02421 
02422 
02423 
02424 
02425 

02426 
82427 

02430 

02431 
02431 
02432 
02433 
92434 

02435 

02436 

02437 

02440 

02441 
02442 



B 6S52417 

n 602431 

R 6f!2277 



02444 

02445 

02446 
02447 
02450 
02451 
02452 
02453 



02454 
02455 
02456 
02457 
02460 
02461 



101113 
000(!0PI 
002420 
20016(5 
040072 
140025 
750000 
105042 



R 101132 

R 000000 

002427 

" 602301 



102752 
777775 
102110 
200051 

101055 
200052 

101055 
220001 

101055 

102536 



02443 R 603452 



101100 
002271 

220013 
040137 
205554 
102455 
205537 
102455 



60345I 
000000 
040141 
220141 
740100 
622455 



R 
R 
R 

///// 

enum 

R GEN* 

A GEN» 

R FLAC2=. 

R 

R 

R 

A 

R 

R GEn« 

A GEN« 

R FLAC3=. 

R 

//ft/ 

EFUN 
R GEN« 
A 

R 
R 

R GEN* 
R 

R GEN* 
R 

R GEN* 

R GEN* 

GEN» 
R GEN* 

R 6En» 
R GEN* 

A GEN* 

R 

R 

R 

E 

R 

GEN» 
R GEN» 

* fUNchk 

R 

R 

A 

R 



JMP 
JMP 
JMP 

PUSHF 
JMS 



ENUM /N 
EFUN /F 
OPNeXT-2 /L 



-1 



LAC 
OAC 

dZm 

CLA 

JMS 

POPF 
JMS 



-1 



JMP 

GETC 

JMS 

LAW 

JMS 

LAC 

PUSHA 

JMS 

LAC 

PUSHA 

JMS 

LAC* 

PUSHA 

JMS 

TSTLPR 

JMS 

ERROR 

.OEC 

JMP 

PUSHJ 

JMS 

POPA 

LAC* 

OAC 

LAC 

JHS 

LAC 

JHS 

ERROR 

.DEC 

JMP 



DAC 

LAC* 

SMA 

JHP. 



XX 

P02 

XX 

FLaRGP 

PTl 

INSUb 

FLINTP 
XX 
PD3 
XX 

opnext 



utra 
-3 

FETVAr 

sortcn 

XPUSHA 

lastop 

XPUSHA 
BUFSTX 

XPUSHA 

LPRTST 
19 

ERR2-19 
EVaL-1 
XPUSHJ 
EvAL-1 

PQLXR 
FUNAHE 
CFNTABF 
FUNcHK 

• nEmf 

FUNCHK 
20 

ERR2-20 

FuNPtr 
FUNPTR 

FUNCHK 



/TO PROCESS A NUMBER, SaVE AC 



/.AA 

/SET POINTER aS FOR VaRIaBLE. 

/POINT TO 'GETc' and USE CHaR 
/READ NEXT 

/READ Text number => (ptd 

/RESTORE The *C 



/.A A 

/CONTINUE 



/GET Function name 

/SAVE 'SORTcN'.'LASTOP'.ANO 'EFOP' 



/Save function name 

/MUST BE followed BY PARENS TO SET ARGUMENT 

/rES 

/Save function name 

/IS it internal function 

/IS IT EXTERNAL FUNCTION 
/ILLEGAL FUNCTION NAME 



/qiSpaTch on funcTion name 

/FuNCtIHIN TABLE ST*RT 
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02462 
0?463 

02464 
02465 

02466 
02467 
02470 
02471 
02^72 
02473 
02474 



02476 
02477 

02500 
02501 



02503 
02504 



040140 
440141 
200I37 
560141 
602473 
440141 
440140 
602463 
622455 
440141 
620141 



02475 R 

02475 R 102536 



603450 
200051 

101055 
200052 



101100 
002271 



R GEN* 



FUNLOP 



fUnfnO 

///// 

ELPAR 



GEN* 
R GEN« 
R EPAR2 

R GEN* 
R 



02502 R 101055 R GEN» 



R GEN* 
R GEN* 



82505 R 602517 p GEN* 



DAC 
IS? 
LAC 

Sad* 

JMP 
IS? 
ISZ 
JMP 

JMP* 

iSi 

JMP« 

TSTLPR 

JMS 

ERROR 

• DEC 

JMP 

LAC 

PUSHA 

JMS 

LAC 

PUSHA 

JMS 

PUSHJ 

JMS 

RETURN 

JMP 

.EJECT 



FUNCTR 
FUNPTR 

rUNAME 
FUNPTR 

funFnd 

FUNPTR 
FUNCTR 
FUNLOP 
FUNCHK 

fUnptr 

FuNPtR 



LPRTST 
21 

ERR2-2I 

sortcn 

XPUSHA 
LASTOP 

XPUSHA 

eval-1 

XPUSHJ 
EVaL-1 

EFuN3 



^FUNCTION Table count 

/POINTS TO NEXT NAME 
/RIGHT function? 

/YES - Go Dispatch 

/NO - TRY NEXT 

/ANY MORE IN Table? 

/YfS 

/no - return 

/to function ador^ss 

/dispatch 



/DOUBLE OPERATORS 



/LEFT Parens found. 



/Save data 



/EVALUATE THE EXPRESSION 



rOCAL 



PAGE 68 













///// 
















/SOME MINOR FUNCTIONS 


0?5fl6 


R 


lpi53«3 


R 




X|NT 


JMS 
RETURN 


FIX 


02507 


R 


602517 


R 


GEN, 




JMP 


EFUN3 


02510 


R 


125524 


E 




XSGN 


JMS» 


.ao 


025U 


R 


000167 


R 






FLTONE 




02512 


R 


200077 


R 






Lac 


FLaRG*1 


02513 


R 


741000 


A 






SKP 




02514 


R 








XABs 


GEtsGN 




02514 


R 


225522 


E 


GEN* 




LAC* 


.AB 


02515 


R 


751100 


A 






SPa!CLA 




02516 


R 


125534 


E 




/CONTlNU/ 


JMS» 

JiON or 1 


.BA 
-UNcTlON c 


02517 


R 








EFUN3 


POPa 




02517 


R 


220013 


A 


GEN» 




L*C« 


pdlxr 


02520 


R 


040052 


R 






OAC 


LASTOP 


02521 


R 


125536 


E 






JMS, 


.CD 


02522 


R 


125525 


E 






JMS» 


.AP 


02523 


R 


000(176 


R 






FLaRG 




02524 


R 


200160 


R 






LAC 


FLARGP 


02525 


R 


040072 


R 






OAC 
POPA 


PTl 


02526 


R 


220013 


A 


GEN* 




LAC* 


PDLXR 


02527 


R 


340146 


R 






TAD 


P3 


02530 


R 


103752 


R 






JMS 


TWOS 


02531 


R 


340051 


R 






Tad 


SORTcN 


02532 


R 


750200 


A 


GEN« 




SZAiCLA 

ERROR 

.DEC 


22 


02533 


R 


603447 


R 


GEN* 




JMP 
GETc 


ERR2-22 


02534 


R 


102752 


R 


GEn. 




JMS 


UTRA 


02535 


R 


602301 


R 






JMP 


OPNEXT 


02536 


R 


000000 


A 




LPRTST 







02537 


R 


777767 


A 




Mil 


LAW 


-11 


02540 


R 


340051 


R 






Tad 


SORTcN 


02541 


R 


750100 


A 






SMAiCLA 




02542 


R 


622536 


R 






JMp» 


LpRTST 


02543 


R 


777773 


A 






LAW 


-5 


02544 


R 


340051 


R 






TAD 


SORTCN 


B2545 


R 


750300 


A 






SMASSZa 


!CLA 


02546 


R 


442536 


R 






IS? 


LPRTST 


02547 


R 


622536 


R 






JMP» 


LPRTST 



/intfger Part 

/Take sign»i of fLaRg 

/TAKE ABsOLutE VALuE OF FLaC 

/SKIP TO CONTINUE 
/NEGATE THE FLOATING AC 
.S. 
/RESTORE LaST OPeRaTiON 

/NORMALIZE FUNCTION RETURN 
/SAVE FUNCTION VaLUe 

/SET POINTER 

/GET LAST PaREN CODE. 



/CHECK FOR PAREN MATCH. 

/(STILL SET FROM The LaST "eVaL") 

/skip if match 
/paRen error 



/MOVE PAST R-PAR. AND RETURN TO OPNEX. 

/FUNTION RETURN IS OK 

/SKIP IF LEFT PAREN. - 'TSTlPR' 



.EJECT 
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0255a 


R 






02550 


R 


102675 


R 


02551 


R 


602265 


R 


02552 


R 


440P!67 


R 


02553 


R 


102752 


R 


02554 


R 


540501 


R 


02555 


R 


751R01 


A 


02556 


R 


61^2553 


R 


02557 


R 


340014 


R 


02560 


R 


740001 


A 


02561 


R 


340064 


R 


02562 


R 


040054 


R 


02563 


R 


220064 


R 


02564 


R 


060066 


R 


02565 


R 


200157 


R 


02566 


R 


040074 


R 


02567 


R 


220074 


R 


02570 


R 


741200 


A 


02571 


R 


602605 


R 


02572 


R 


040073 


R 


02573 


R 


200064 


R 


02574 


R 


744000 


A 


02575 


R 


10375? 


R 


02576 


R 


340073 


R 


02577 


R 


751400 


A 


02600 


R 


3405^54 


R 


0^601 


R 


3400^3 


R 


02602 


R 


060074 


R 


02603 


R 


200073 


R 


02604 


R 


602566 


R 



/THE DELETE A LINE ROUTINE 



DELETE 



GEN* 



GENf 



GEN' 



OOK 



riNOL 

JMS 

POPJ 

JMP 

ISZ 

GETC 
JMS 

Sao 
SKPsr 

JMp 

tao 

CMA 

TAD 

DAC 

LAC* 

DAC. 

LAC 

OAC 

LAC* 

SNA 

JMP 

DAC 

LAC 

CLL 

JMS 

TAD 

SZL 

TAD 

Tao 

OAC* 

lac 

JMP 
,EJEC 



N 



/SETS 
XFINO 

XPOPJ 
OEBGSM 



UTRA 
C215 

laicma 

.-3 

AXOUT 

THISLN 

CNTR 

THISLN 

lastln 

CFRS 
T2 

T2 

DONE 

Tl 

THISLN 



•THISLN" AND "LaSTLN' 

/ALREADY GONE 

/DISABLE TRACE 

/MEASURE LENGTH 



CLA 



THOS 
Tl 

CNTR 

Tl 

T2 

Tl 

DDK 



/SAVE LAST ADDRESS 



/LENGTH < 

/disconnect 

/start list at top 

/examination address 
/get the next aodr. 
/test for end 
/yes-wrap up all. 

/save next address, 
/compare line positions 



/SKIP IF THISLN > X 
/CHANCE (X) TO ACCOUMT FOR 

/GARBAGE COLLECTION. 



/qET NEXT 



roCAL 



026(»5 
B26(»7 
02610 
02611 
02612 
02613 
02614 
02615 
02616 
02617 
02620 
02621 
02622 
«l?623 
02624 
02625 
02626 

0262? 
02630 
02631 
02632 



PAGE 


62 




///// 

/GARBAGE 


COLLECTION 




R 


750001 


A 


DONE 


CLa!CM« 




R 


340f)64 


R 




Tad 


THISLN 


R 


065545 


R 




OAC* 


CXRT 


1 R 


2PI0054 


R 




LAC 


CNjR 


R 


740001 


A 




CMA 




' R 


340064 


R 




TAD 


THISLN 


R 


065546 


R 




OAC* 


(XRT2 


R 


200054 


R 




Lac 


cntr 


R 


340004 


R 




Tad 


8UFR 


R 


040004 


R 




OAC 


BUFR 


R 


225544 


R 




LAC» 


(AX|N 


R 


740001 


A 




CMA 




R 


355546 


R 




TAD» 


(XRT2 


R 


040073 


R 




DAC 


Tl 


R 


225544 


R 




LAC» 


{AXIN 


ft 


340054 


R 




TAO 


CNTR 


R 


065544 


R 




OAC* 


(AXIN 


R 


22001? 


A 




LAC» 


XRTj 


R 


060011 


A 




DAC» 


XRT 


R 


440073 


R 




IS2 


Tl 


R 


602626 


R 




J«P 


.-3 


R 


602550 


R 




JMP 


DELETE 



///// 



/BACKUP L FOR XR 
/S^TUP END OF HO5E 

/correct end of B^fEER POINTER, 

/COMPUTE Count 
/SIPHON LOWER Part. 

/rEsET 'LAstUN'.'THIsLN., and data FIELD. 



.eject 
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B2633 
02633 
02634 
0263? 



02636 R 

02637 R 

02640 R 

02641 R 

02642 R 



02643 
02644 
02645 
02646 
02647 



02654 
02655 
02656 
0^657 
02657 
02660 
02661 
02662 
02663 
02664 

02665 
02666 
02667 
02670 
02671 



02650 R 

02650 R 

02651 R 

02652 R 

02653 R 



02672 R 

02673 R 



602672 
6<»265(" 



6PI3446 
777767 
102110 

102^43 
0P0321 



603446 
20000? 
040004 
160157 
600512 



100664 
20006? 
501347 
741?00 



603466 
200004 
065544 

101100 
002550 
440064 
200060 
750100 
360064 

101343 
60051? 
220064 
04006? 
602657 

200003 
040006 



fRASE 

R GEN* 

R 

R 

GEN» 

R GEN* 

A 

R 

R GEN* 
R GEN* 

GEN* 
R GEN* 

R XSbEGN 
R 

R 
R 

////// 
ERL 

R GEN* 

R 

R 

A 

GEN* 
R GEN* 
R 
R 

ERG 
R GEN* 
R gE^N* 

R 
R 

A 

R 

R GEN* 

R 

R 

R 
R 

///// 

R ERVX 

R 



02674 R 602265 R GEN* 



TESTC 

JMS 

JMP 

JMP 

ERROR 

.DEC 

JMP 

LAW 

JMS 

SORTJX 

JMS 

ERROR 

.DEC 
JMP 

Lac 

OAC 

DZM* 

JMP 

GETLN 

JMS 

LAC 

AND 

SNA 

ERROR 

.DEC 

JMP 

LAC 

DAC* 

PUSHJ 

JMS 

Is? 

LAC 

SMASCLA 

TAD* 

TSTGRP 

JMS 

JMP 

LAC« 

DAC 

JMP 

LAC 

dAc 

POPJ 
JMP 

.EJECT 



XTESTc 
ERVX 
ERL 
23 

ERR2-23 
-11 

EETVAR 

ALLCM2 

XSORTX 

ALLCM2-I 

23 

ERR2-23 

ENoT 

BUfR 

CFrS 

START 



XGETLN 
LINENO 
P7600 



ERR2-7 

BUFR 

(AXIN 

DELETE 

XPUSHJ 

DELETE 

THIsLN 

NAGSW 

THISLN 

GRPTST 

STaRT 

ThiSlN 

LINENO 

ERG 

STaRTV 
LASTV 

XPOPJ 



/test the second word. if any, 
/eRaSe Variables 

/LINES or GROUPS 



/BAo aRg for eRase. 
/eRaSe ALL Text •* 

/POINTERS MAY BE DIFFERENT NOW, 
/ERaSE LINES. 



/PROTECT REST OF TEXT. 
/EXTRACT ONE LINE 



/(X-MEM) 

/SKIP IF G<AC) = 6(LINEN0) 



/CX-mEm) 



/iNiT Variables may be in the text 
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02675 


R 


0C)000(1 


A 


82676 


R 


200157 


R 


02677 


R 


040066 


R 


02700 


R 


040«I64 


R 


02701 


R 


065546 


R 


02702 


R 


200PI62 


R 


02703 


R 


741100 


A 

6CN 


02704 


R 


603445 


R GEN 


02705 


R 


103752 


R 


02706 


R 


36001? 


A 


02707 


R 


741200 


A 


02710 


R 


602721 


R 


02711 


R 


750100 


A. 


02712 


R 


602722 


r? 


02713 


R 


340064 


R 


02714 


R 


040066 


R 


02715 


R 


220fl64 


R 


02716 


R 


740200 


A 


02717 


R 


602700 


R 


02720 


R 


741000 


A 


02721 


R 


442675 


R 


02722 


R 


200064 


R 


02723 


R 


340147 


R 


02724 


R 


040014 


R 


02725 


R 


777777 


A 


02726 


R 


040015 


R 


02727 


R 


200067 


R 


82730 


R 


340070 


R 


02731 


R 


750200 


A 


02732 


R 


622675 


R 


02733 


R 


200022 


R 


02734 


R 


540501 


R 


02735 


R 


741000 


A 


02736 


R 


540475 


R 


02737 


R 


602742 


R 


02740 


R 


200475 


R 


02741 


R 


103362 


R GEN 


02742 


R 


203125 


R 


02743 


R 


540501 


R 


02744 


R 


602747 


R 


02745 


R 


200501 


R 


02746 


R 


103273 


R 


B2747 


R 


200477 


R 


82750 


R 


183273 


R 



/ROUTINE 


CALLED VU 


"FINDLN": 




/SEAf'CH F 


■OR A GIVEN 


LINE I.D, 


, sC "LINENO" 3 


/IST RETURN IF NOT I 


rOUNO, 




/2AN0 IF 


FOUND. 






/"ThiSln- 


' = FOUNn LINE OR Ne! 


<T Larger. 


/"tASTLN' 


'• = lessFr 


AND/QR LAST. 


/kTEXTP" 


IS SET 






XFINO 











Lac 


CFRS 


/INITIALIZE PC 




DAC 


lastln 




FINQN 


DAC 


ThiSln 


/SaVe This one 




oac» 


(XRT2 






lac 


lineno 






SPA 




/MAX 99.99 




ERROR 


24 






.DEC 








JMP 


ERR2-24 






JMS 


THOS 






Tad» 


XRT2 


/lineno=0 Will 




SNA 








JMP 


FEND2 


/founo it. 




SMAICU* 








MP 


FEN03 


/PAST It. 




TAD 


THISLN 


/MOVE POINTERS 




DAC 


LASTLN 






LAC* 


THISLN 






SEA 








. JMP 


FINDN 






SKP 






FEND2 


IS? 


XFINO 


/2ND EXIT s FOI 


FEND3 


LAC 


THISLN 






TAD 


P2 






OAC 


AXOUT 


/SET "TEXTP". 




LAM 


-1 






DAC 


XCTX 






.IFUND 


MULTI 






LAC OEBGSW 






TAO DMPSW 








s2a:cla 








JMP» XFINO 






LAC SAVEOT 






SAO C215 








SKP 








SAO C375 








JMP .+3 








LAC C375 








PRINTC 








JHS 


XOUTL 






LAC IMRUFF+2 






SAO C215 








JMP .+3 








LAC C215 








JMS IMAGEW 






LAC C212 








JHS IMAGEW 
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02751 


P 


622675 


R 




02752 


R 


000000 


A 




02753 


R 


103026 


R 




02754 


R 


751100 


A 




02755 


R 


340150 


R 




02756 


R 


340165 


R 




02757 


R 


340061 


R 




02760 


R 


741200 


A 




B2761 


R 


603014 


R 




02762 


R 


340166 


R 




02763 


R 


040061 


R 




02764 


R 


200067 


R 




02765 


R 


340070 


R 




02766 


R 


750200 


A 




02767 


R 


603007 


R 




02770 


R 


200022 


R 




02771 


R 


540501 


R 




02772 


R 


741000 


A 




02773 


R 


540475 


R 




02774 


R 


602777 


R 




02775 


R 


200475 


R 




02776 


R 


103362 


R 


CEN» 


B2777 


R 


200061 


R 




03000 


R 


103273 


R 




03001 


R 


200061 


R 




03002 


R 


5*050l 


R 




03003 


R 


741000 


A 




03004 


R 


603007 


R 




03005 


R 


200477 


R 




03006 


R 


103273 


R 




03007 


R 


200061 


R 




03010 


R 


622752 


R 




fSaii 


R 


103026 


R 




03012 


R 


740001 


A 




03013 


R 


602754 


R 




93014 


R 


200067 


R 




03015 


R 


750200 


A 




03016 


R 


603024 


R 




03017 


R 


340070 


R 




03020 


R 


751200 


A 




03021 


R 


340167 


R 




03022 


R 


040070 


R 




03023 


R 


602753 


R 




03024 


R 


340145 


R 




03025 


R 


602763 


R 




03026 


R 


000000 


A 




03027 


R 


440015 


R 




03030 


R 


603036 


R 




83031 


R 


777775 


A 





UTRA 
UTE 



UTO 



utrax 



////// 

EXTR 



UTX 



UTXP6 
GET! 



.ENOC 

JMP» 



JMS 

SPaIcLa 

TAD 

TAD 

TAD 

SNA 

JMP 

TAD 

OAC 

.IFUNO 

LAC 

TAD 

SiAiCLA 

JMP 

LAC 

SAD 

SKp 

SAD 

JMP 

LAC 

printc 

JMS 

LAC CHAR 

JMS 

LAC CHAR 

SAD C2l5 

SKP 

JMP UTRAX 

LAC C212 

JMS IMAGE* 

LAC 

.ENOC 

JMP» 

JMS 
CMa 
JMP 

LAC 

SZa!CLa 

JMP 

TAD 

SNA'CLA 

TAD 

DAC 

JMP 

TAD 
JMP 

ISi 

JMP 

LAU 



XFIND 

GETl 

Ci00 
Mi37 
CHAR 

UTX 
P337 

CHAR 
MULTI 
OEBGSM 
OMPSW 

UTRAX 

SaVEOT 

C215 

C375 

.♦3 

C375 

XOUTL 

IMAGEM 



/UNPACK CHARACTER. - "GETC' 

/NORM « EXTEND 
/300-337 & 340-376 
/240-276 & 200-236 



/"?" FOUMS 



/PRINT ONLY IF BOTH ARE ZERO, 



/FIX FOR TRACE FEATURE ... WaO , 
/IF CR OUTPUT LF 



/NOT A CR. NO Lf 

/Output lf 
i /.. .end of fix, 

CHAR 
UTRA 



GETl 
UTE 

OEBGSU 



.JUNE 69 



UTXP6 
OmPSW 

CI 

DMPSH 

UTRA+l 

C277 
UTO 

XCTx 

GENDX 

-3 



/TEST FOR TRACE-ENABLED 



/Flip the TRACE Flop 



/GET NEXT CHARACTER INSTEAD. 
/TRACE DISABLED = RETURN "?" 

/UNPACK 6-BlTS 

/STARTS=-1 



FOCAL 
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03032 R 040015 R 

83033 R 220014 R 

03034 R 440014 R 

03035 R 040016 R 

03036 R 200016 R 



gEnox 



03037 


R 


100770 


R ge:n« 


03040 


R 


040016 


R 


03041 


R 


740010 


A 


03042 


R 


500151 


R 


03043 


R 


040061 


R 


03044 


R 


540151 


R 


03045 


R 


603011 


R 


03046 


R 


777740 


A 


03047 


R 


340061 


R 


03050 


R 


623026 


R 



DAC 


XCTX 




LAC* 


axout 


/NEXT WORD 


IS2 


AXOUT 




DAC 


GTEM 




LAC 


gtem 




RTL6 






JMS 


XRTL6 




DAC 


GTEH 




RAL 






AND 


C77 




DAC 


CHAR 


/SAVE 


SAD 


C77 




JHP 


EXTR 


/EXTENDED 


LAW 


-40 




TAD 


CHAR 




JMP. 


GETi 




.EJECT 
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AGE 


67 










03051 


R 


000000 


A 


XENDLN 





/jErMinatE the Buffered line 


03052 


R 


2?0t1(S6 


R 




LAC» 


LASTLN /SAVF OLD POINTER 


03053 


R 


060?I34 


R 




OAC. 


RUFR 


03054 


R 


200004 


R 




LAC 


BUFR 


03055 


R 


060066 


R 




DAC» 


LASTLN 


03056 


R 


200056 


R 




LAC 


ADD 


03057 


R 


740200 


A 




S2A 


.- 


03060 


R 


060010 


A 




OAC* 


AXIN 


03061 


R 


225544 


R 




LAC» 


UXIN 


03062 


R 


340167 


R 




Tad 


Cl 


03063 


R 


040004 


R 




DAC 


BUFR 


03064 


R 


623051 


R 




JMP» 


XENDLN 


03065 


R 


000000 


A 


XPRNT 





/PRINT A LINE NUmbeR - "PRNT 


03066 


R 


200362 


R 




LAC 


lineno 


03067 


R 


742020 


A 




RTR 




03070 


R 


742020 


A 




RTR 




03071 


n 


742020 


A 




RTR 




03072 


R 


740020 


A 




RAR 




03073 


R 


103101 


R 




JMS 


PRNT 


03074 


R 


200415 


R 




LAC 
PRINTC 


PER 


03075 


R 


103362 


R CEN« 




JMS 


XOUTL 


03076 


R 


200062 


R 




LAC 


LINENO 


03077 


R 


103101 


R 




JMS 


PRNT 


03100 


R 


623065 


R 


////// 


JHP» 


XPRNT 


031j,l 


R 


000000 


A 


prnt 





/PRINT TWO DIGITS 


03102 


R 


500155 


R 




AND 


P177 


03103 


R 


043322 


R 




DAC 


VAL 


03104 


R 


200152 


R 




LAC 


C260 


03105 


n 


040104 


R 




DAC 


BOX 


03106 


R 


203322 


R 




LAC 


VAL 


03107 


R 


603112 


R 




JMP 


.♦3 


03110 


R 


440104 


R 




IS? 


BOX 


03111 


R 


043322 


R 


XYZ 


DAC 


VAL 


03112 


R 


344770 


R 




TAD 


M12 


03113 


R 


740100 


A 




SMA 




03114 


R 


603110 


R 




JMP 


XYZ-1 


03115 


R 


200104 


R 


:--■ 


LAC 
PRINTC 


BOX 


03116 


R 


103362 


R GEN, 




JMS 


XOUTL 


03117 


R 


203322 


R 




LAC 


VAL 


03120 


R 


340152 


R 




TAD 
PRINTC 


C260 


03121 


R 


103362 


R GEN. 




JMS 


XOUTL 


03122 


R 


623101 


R 




JMP* 
.EJECT 


PRNT 



"ENOLN" 
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03123 

03124 
03125 
03126 
03127 
03207 
03210 
03211 

03212 
03271 
03272 

03273 
03274 
03275 

03276 
03276 
03277 
03300 

03301 



03302 
03303 



03305 
03306 
03307 

03310 
03310 

03311 
03312 



002«03 
00000P) 
0000(50 
777777 

064(100 
000C10(! 
00lC50« 

064(^00 
000?I00 

0(50C?00 
043306 
060011 
003300 

00377S 
000011 
003123 

777775 



000775 
00001? 



IMBUFF 

INBUF 
OUTBUr 

IMAGEW 



. IFUNO 
2003! 



MULTI 
0J 



GEN, 
GEN* 
GEN* 
GEN* 
GEN* 



1MBF01 
WCAL03 



A GEN* 
A GEN* 



03304 R 203306 R 



623273 R 

000(400 A 

000000 A 

003312 R 

003776 A GEN* 

000010 A GEN* 

003123 R GEN* 
GEN* 

B3313 R 777775 A GEN* 



IMAC 
IMAGER 
1MBF02 
RCAL03 



.BLOCK 60 
•ASCII <15> 

1000 

.BLOCK 57 
•ASCII <15> 

.ENDC 



DAC IMaC 

OAC« IMBUFP 



/STORE AC FOR SoRTb 



= .*2 



.WrItE -3.3.Im8UFF,3 

CAL*3*1000 -34777 

11 

IMBUFF 

.DEC 

-3 

.IFUNO MULTI 

.WAIT -3 

CAL -3*777 

12 

.ENDC 

.IFDEF MULTI 

JMS lOBUSY 

,ENDC 

LAC IMAC 

JMP* IMAGEH 







/RESTORE AC FOR SORTp 
/STORAGE FOR AC 



= .+2 



03314 R 000776 A GEN* 

03315 R 000012 A GEN* 



03316 R 220011 R 

03317 R 500155 R 

03320 R 240154 R 

03321 R 623307 R 



.READ -2.3. IMBUFF. 3 

CAL*3«1000 -24777 

10 

IMBUFF 

.DEC 

-3 

,!FUND MULTI 

.WAIT -2 

CAL -2S777 

12 

.ENDC 

.IFDEF MULTI 

JMS lOBUSY 

.ENDC 

LAC* IMBUFP 

AND Pl77 

XOR C200 

JMP« IMAGER 

.EJECT 
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///// 










0«3322 


R 




VALr. 






03322 


R 


emviefi 


A 




XI33 





/"Reaoc" 


03323 


R 


200020 


R 






LAC EnDCR 


/WAS LAST INPUT CR 


033?4 


R 


540501 


R 






SAO C215 




033?5 


R 


jAiam 


A 






SKP 


/YES 


03326 


R 


603345 


R 






JMP XI33NX 


/NO - GO GET NEXT FROM BUFFER 






003331 


R 




INBF01= 


,♦2 




03327 


R 








RCAL01 


.RFAP -2.2.INBUF,48 


03327 


R 


002776 


A 


GEN» 




CAL*2»i000 -2«777 




03330 


R 


(^00010 


A 


GEN« 




10 




03331 


R 


003127 


R 


GEN* 
GEN* 




INPUF 

.□EC 




03332 


R 


777720 


A 


GEN* 




-46 

.IFUND MULTI 




03333 


R 








RCAL02 


.WAIT -2 




03333 


R 


000776 


A 


GEN« 




CAL -2*777 




03334 


R 


000012 


A 


GEN* 




12 

.ENOC 

. IFOEF MULTI 

JMS rOBUSY 

.ENOC 




03335 


R 


223331 


R 






LAC* INBF01 




03336 


R 


500144 


R 






AND Pl7 




03337 


R 


545555 


R 






SAD (5 


/EOF? 


03340 


R 


604152 


R 






JMP ROEOM 


/YES 


03341 


R 


545556 


R 






SAD (6 


/EOM? 


03342 


R 


604152 


R 






JMP rdeom 


/YES 


03343 


R 


200012 


R 






Lac inbufp 




03344 


R 


105374 


R 






JMS .GETj 


/Unpack initialization 


03345 


R 


105401 


R 




xl33Nx 


JMS .GET 


/UNPACK CHARACTER 


03346 


R 


240154 


R 






XOR C200 




03347 


R 


540154 


R 






SAD C200 


/IGNORE NULL 


03350 


R 


603345 


R 






JMP XI33NX 




03351 


R 


540500 


R 






SAO C377 


/IGNORE RUBOUTS 


«3352 
03353 


R 


603345 


R 






JMP XI33NX 




R 


540477 


R 






Sao c212 


/IGNORE LINe-FEEO 


03354 


R 


603345 


R 






jMP Xi33nX 




03355 


R 


540475 


R 






SAD C375 


/USE CR FOR ESC 


03356 


R 


200501 


R 






LAC C215 




03357 


R 


040020 


R 






DAG ENDCR 




03360 


R 


040061 


R 






DAC CHAR 




03361 


R 


623322 


R 






JMP* XI33 
.EJECT 
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03362 


R 


0C<0(»0PI 


A 




XOUTL 







03363 


ft 


741?0P! 


A 






SNA 




03364 


R 


200PI61 


R 






Lac 


CHAR 


03365 


R 


040022 


R 






DAC 


SAVEoT 


03366 


R 


440023 


R 






IS? 


PyTCNT 


03367 


R 


6«3377 


R 






JMP 


XOUTLO 


03370 


R 


223414 


R 






LAC* 


OTBF01 


0337I 


R 


545557 


R 






Sao 


*3l000 


03372 


R 


603404 


R 






JMP 


XQUTLI 


03373 


R 


345560 


R 






tao 


(1000 


03374 


R 


063414 


R 






OAC, 


OT8F01 


03375 


R 


777773 


A 






LAW 


-5 


03376 


R 


040023 


R 






OAC 


PUTcNT 


03377 


R 


2?34l4 


R 




XOUTLO 


LAC* 


OTBF01 


03400 


R 


545557 


R 






SAO 


(31000 


034B1 


R 


603404 


R 






Jmp 


XqUTlI 


03402 


R 


200022 


R 






LAC 


SAVEOT 


83403 


R 


105435 


R 






JMS 


.PUT 


03404 


R 


2001'22 


R 




XOUTL I 


LAC 


SAVEOT 


03405 


R 


540501 


R 






Sad 


C215 


B3406 


R 


6034I2 


R 






JMP 


XOUTLX 


03407 


R 


540475 


R 






Sao 


C375 


03410 


R 


603412 


^ 






JMP 


XOUTLX 


03411 


R 


603426 
003412 


R 
R 




XOUTLX=, 


JMP 


XOUTLZ 






003414 


R 




OTBF0l=, 


,+2 




03412 


P 








WCAL01 


.WRITE 


-3.2.0 


03412 


R 


002775 


A 


GEN. 




CAL+2»10B0 -3«77 


03413 


R 


000011 


A 


GEN* 




11 




03414 


R 


003211 


R 


GEN. 
GEN* 




OUTBUF 
.DEC 




03415 


R 


777720 


A 


GEN* 




-48 




03416 


R 


200013 


R 






LAC 


OTBUFP 


03417 


R 


185431 


R 






JMS 


.PUTI 


03420 


R 


777777 


A 






LAW 


-1 


03421 


R 


040023 


R 






OAC 
•IFUNO 


PUTCNT 
MULTI 


03422 


H 








HCAL02 


.WAIT 


-3 


B3422 


R 


000775 


A 


GEN* 




CAL -34777 


03423 


R 


000012 


A 


GEN* 




12 

.ENOC 
•IFOEF 
JMS 
• ENOC 


MULTI 

lOBUSY 


»3424 


R 


205560 


R 






LAC 


(1000 


03425 


R 


063414 


R 






OAC* 


OTBF01 


03426 


R 


200061 


R 




XOUTLE 


LAC 


CHAR 


03427 


R 


623362 


R 






JMP* 
.EJECT 


XOUTL 



/"PRtNTC" 

/USE AC OR CHAR 

/SAVF ChAR 

/READY TO RyMP yPC? 

/NO 
/YES 

/HAS The B^EFER OVERFLOWED'? 
/^eS - IGNORE ChAR 
/N(5 - UPDATE WPC 



/RESET COUNT 



/BUFFER OVERFLOWED - DonT SAVE CHAr 
/GET CHAR 



/OUTPUT BUFFER ON CR OR ESC 
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.DEC 












.rEPt .^7 


03430 


R 


440iaft 


R 




IS? ERR2CT 


03431 


R 


440106 


R 


♦ HPT 




03432 


R 


440106 


R 


• RPT 




03433 


R 


440106 


R 


• RPT 




03434 


R 


440106 


R 


• RPT 




03435 


R 


440106 


R 


•RPT 




03436 


R 


440106 


R 


• RPT 




03437 


R 


440106 


R 


•RPT 




03440 


R 


440106 


R 


• RPT 




03441 


R 


440106 


R 


• RPT 




03442 


R 


440106 


R 


• RPT 




03443 


R 


440106 


R 


•RPT 




03444 


R 


440106 


R 


•RPT 




03445 


R 


440106 


R 


• RPT 




03446 


R 


440106 


R 


• RPT 




03447 


R 


440106 


R 


•RPT 




03450 


R 


440106 


R 


• RPT 




03451 


R 


440106 


R 


• RPT 




03452 


R 


440106 


R 


• RPT 




03453 


R 


440106 


R 


• RPT 




03454 


R 


440106 


R 


• RPT 




03455 


R 


440106 


R 


• RPT 




03456 


R 


440106 


R 


• RPT 




03457 


R 


440106 


R 


• RPT 




03460 


R 


440106 


R 


•RPT 




03461 


R 


440106 


R 


• RPT 




03462 


R 


440106 


R 


• RPT 




03463 


R 


440106 


R 


• RPT 




03464 


R 


440106 


R 


• RPT 




03465 


R 


440106 


R 


• RPT 




03466 


R 


440106 


R 


• RPT 




03467 


R 


440106 


R 


• RPT 




03470 


R 


440106 


R 


• RPT 




03471 


R 


440106 


R 


•RPT 




03472 


R 


440106 


R 


• RPT 




83473 


R 


440106 


R 


♦ RPT 




B3474 


R 


440106 


R 


•RPT 


• OCT 






003475 


R 


ERR2=. 




03475 


R 


200145 


R 


ERRPCX 


LAC C277 
PRINTC 


03476 


R 


103362 


R 


GEN» 


JMS XOUTL 


03477 


R 


200106 


R 




LAC ERR2CT 


03500 


R 


103101 


R 




JMS PRNT 


03501 


R 


140106 


R 




DEM ERR2CT 


03502 


R 


440063 


R 




ISZ PC 


03503 


R 


220063 


R 




LAC^ PC 


03504 


R 


741200 


A 




SNA 


03505 


R 


603512 


R 




JMP ERR2T 


03506 


R 


04006? 


R 




OAC LINENO 


03507 


R 


200416 


R 




LAC C240 
PRINTC 


03510 


R 


103362 


R 


GEN* 


JMS XOUTL 



/CLEAR FOR NEXT ERROR 
/PRINT LINENO IF INDIRECT COMMAND 



/SAVE FOR PRINTING 
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03511 R 103065 R GEN» 

813512 R 200501 R ERR2T 

03513 R 103362 R GEN» 

03514 R 603527 R 

03515 R 040106 R FUNERR 

03516 R 200I45 R 

B35I7 R 103352 R GEN* 

03520 R 603475 R 

03521 R 200501 p rECOvr 

03522 R 103362 R GEN. 

RECOVR 



WCAL04 



03523 


R 








B3523 


R 


002775 


A 


GEN* 


B3524 


R 


000011 


A 


GEN* 


03525 


R 


000177 


R 


GEN* 
GEN* 


03526 


R 


777730 
B03527 


A 
R 


GEN* 


03527 


R 


200013 


R 




03538 


R 


105431 


R 




03531 


R 


200501 


R 




03532 


R 


040020 


R 




93533 


R 


777777 


A 




03534 


R 


040023 


R 




83535 


R 


205560 


R 




03536 


R 


063414 


R 




■3537 


R 


200026 


R 




03540 


R 


103553 


R 




03541 


R 


200027 


R 




B3542 


R 


103544 


R 




03543 


R 


600547 


R 





RECVR=. 



PRNTLN 






JMS 


XPRNT 




LAC 


CCR 




PRINTC 






JMS 


XOUTL 




JMP 


RECVR 




PAC 


ERR2CT 




LAC 


C277 




PRiNTc 






JMS 


XOUTL 




JMP 


ERRPCX 




.IFUND MULTI 




LAC 


CCr 




PRINTC 






JMS 


XOUTL 




.ENOC 






.IFDEF 


MULTI 




02M» 


CTLP 




LAC CC 






PRINTC 






JMS 


tOBUSY 




.ENDC 






.WRITE 


-3,2.F0CAL9. 


.40 


CAL+2*i000 -3S777 




It 






F0CAL9 






.DEC 






-40 






.IFOEF MULTI 




JMS I OPUS Y 




.ENOC 






LAC OTbUFP 




JMS .PUTI 






LAC C215 






OAC ENOCR 






LAW -1 






DAC PUTCNT 




LAC (10B0 






OAC* OTBF01 




LAC 


TTIN /F 


JES 


JMS 


setrcl 




L*C 


TTOUT 




JMS 


SETWCL 




JMP 


STARTz 




.EJECT 







/S^Ve two OIGIT ERROR qOOE 
/PRINT oOUrLE 7 



/■RESET CAL FOR NORMAL INPUT 
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03544 R 0005)00 A 

03545 R 043422 R 
P3546 R 245560 R 



03547 
03550 
03551 
03552 



044165 
345560 
043412 
6^3544 



03553 R 000000 A 

03554 R 043333 R 

03555 R 245561 R 



03556 R 043327 R 

03557 R 345560 R 

03560 R 044123 R 

03561 R 623553 R 



/SET WRITE CAL'S 


SUBROUTINE 






SETWCL 








.IFUND 


MULTl 






PAC 


WCAL02 


/.WAIT 




.ENOC 








XOR 


(1000 






.irOEF 


MULT! 






DAC* 


8WAIT 


/PROPER 


.waitr 


.e^^OC 








OAC 


l-BOUTi 


/. INIT 




TAD 


C1000 






OAC 


WCAL01 


/.WRITE 




JMP* 


SETWCL 






/SET READ CaL'S SUBROUTINE 






SETRCL 








.IFUND 


MULT I 






OAC 


RCAL02 


/.Wait 




XOR 


(2000 






.ENOC 








.IFOEE 


MULTI 






XOR 


(1000 






OAC» 


bwait 


/PROPER 


.WaITR 


TAO 


(1000 






.ENDC 








OAC 


RCAL01 


/.READ 




TAD 


(1000 






DAC 


LBINiA 






JMP» 


SETRCL 







.EJECT 
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03562 


R 


00000(4 


A 


03563 


R 


777'i0l 


A 


03564 


H 


340P'61 


R 


03565 


R 


7412RH 


A 


03566 


R 


34PI174 


R 


03567 


R 


340153 


R 


03570 


R 


741200 


A 


03571 


P 


740f4Pi 


A 


03572 


R 


340500 


R 


03573 


R 


040C174 


R 


0357-1 


R 


500l7'5 


R 


03575 


R 


340176 


R 


03576 


R 


740200 


A 


03577 


R 


340175 


R 


03600 


R 


751200 


A 


03601 


R 


603620 


R 


03602 


R 


200074 


R 


03603 


R 


500151 


R 


036PI4 


R 


740200 


A 


03605 


R 


103623 


R 


03606 


R 


200074 


R 


03607 


R 


540501 


R 


03610 


R 


603613 


R 


03611 


R 


200PI61 


R 


03612 


R 


623562 


R 


03613 


R 


200P57 


R 


03614 


R 


751200 


A 


03615 


R 


603611 


R 


03616 


R 


103623 


R 


03617 


R 


603613 


R 


036?0 


fl 


200I5I 


R 


03621 


R 


103623 


R 


03622 


R 


603602 


R 



Pacbuf /Pack a character - "Packc" 

LAW -277 

Tad char 

SN* /ChAnGE 277 TO 337 

jAO P40 

TAD M108 

SNA /TEST FOR RUBOUT, 

HLT 

TAD C377 

DAC T2 /Save input item 

/so That question doesn't make 

and C140 /CHaR look like a LEFT-aRRCW 

Tad M140 

SZA- /DATA WORD. 

TAD Cl40 

SNAjCLA 

JMP ESCA /340-377 AND 280-237 

TRl LAC T2 /24a-337 

AND C77 

SHA /IGNORE 300 

JMS PCKi 

LAC T2 

SAO C215 

JMP .*z 

PACBXT LAC CHAR 

JMP* PACBUF 

LAC XCTIN 

SNAICLA 

JMP PACBXT 

JMS pCKl 

JMP .-4 
////// 

ESCA LAC C77 

JMS PCKl 

JMP TRl 

•EJECT 
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B35?3 


P 


00efl0Pi 


A 




e36?4 


R 


040024 


R 




03625 


R 


2C06157 


R 




e36?6 


R 


345562 


R 




03627 


R 


043631 


R 




83630 


R 


200(»56 


R 




03631 


R 


000000 


A 




03632 


R 


603651 


R 




03633 


R 


60365? 


R 




03634 


R 


100770 


R 


GEN* 


03635 


R 


140057 


R 




03636 


R 


340024 


R 




03637 


R 


060010 


A 




03640 


R 


1405I56 


H 




03641 


R 


225542 


R 




03642 


R 


744001 


A 




03643 


R 


340167 


R 




03644 


R 


340143 


R 




03645 


R 


365544 


R 




03646 


R 


750400 


A 




03647 


R 


623623 


R 


GEN* 


03650 


R 


603455 


R 


GEN* 


03651 


R 


750000 


A 




03652 


R 








03652 


R 


100770 


R 


G^N* 


03553 


R 


340024 


R 




03654 


R 


040056 


R 




03655 


R 


440057 


R 




03656 


R 


623623 


R 





PCKi 



PCKT9 



///// 



ROT 





OAC 

LAC 

TAD 

OAC 

LAC 

XX 

JMP 

JMP 

RTL6 

JMS 

DHM XCT 

TAD 

OAC* 

02M 

LAC» 

CMAicLL 

TAD 

TAD 

TAD* 

SNLtCLA 

JMP* 

ERROR 

.DEC 

JMP 

CLA • 

RTL6 

JMS 

TAO 

OAC 

IS? 

JMP* 

.EJECT 



IN 



TEMPK 

XCTIN /=8 TO START 

(JMP PCKT8 

.♦2 

ADD 



ROT-i 

ROT 

XRTL6 

TEMPK 
AXIN 
ADO 
(PDLXR 

CI 

Pl3 

(AXIN 

PCKl 
16 

ERR2-16 



XRTL6 

TEMPK 

ADD 

XCTIN 

PCKl 



/CLEAR Packing word 

/CHECK FOR OVERFLOW (TaO P76aa) TO PROTECT (X.MEM) 
/RESERVATIONS 



/FULL BUFFER 
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03657 


R 


2(«0i"05 


R 


ToUMP 


LAC 


TRSTcV 


/INIT POINTER FOR SYMBOL DUMP 


03660 


R 


440P7fl 


R 




IS? 


nMPSw 


/TURN OFF THE TRacE FOR EXIT 


03661 


P 


04007? 


R 




OAC 


OTI 




03662 


R 


540P03 


R 




SAD 


LaSTcV 




03663 


R 


10372'=! 


R 




JMS 


TDUMPC 




03664 


R 


54aii'3fi 


R 




SAD 
POPJ 


LaS|V 


/tESj FOR END OF LlSy. 


03665 


R 


602?6^ 


R 


GEN. 


JMP 


XPOPJ 




03666 


R 


22007? 


R 




LAC* 


PTi 




0^667 


R 


0'*0ll0 


R 




DAC 


OP + 1 


/(OCA I XOP)-FOR(X_MEM) 


03670 


R 


2f0107 


R 




LAC 


OP 




03671 


P 


340167 


R 




TAD 


Cl 




03672 


R 


040(»14 


R 




OAC 


AXOUT 




03673 


R 


777777 


A 




LAW 


-1 




03674 


R 


040015 


R 




OAC 


XCTX 




03675 


R 


777774 


A 




LAW 


-4 




03676 


R 


103716 


R 




JMS 


TDUMPX 




03677 


P 


440?7? 


R 




iSi 


PTl 




03700 


R 


2202'7? 


R 




LAC» 


PTi 


/READ SUBSCRIPT TO 99 


03701 


R 


I03l0l 


R 




JMS 


PRNT 




03702 


R 


777776 


A 




LAW 


-2 




B3703 


R 


103716 


R 




jMS 


TOUmPX 




03704 


R 


440072 


R 




isz 


PTl 




03705 


R 


125524 


E 




JMS. 


.AO 


/PICK W VALUE 


03706 


R 


40007? 


R 




PTi*40!^000 




03707 


R 


10467? 


R 




JMS 


FLOUTP 


/PRINT Value 


03710 


R 


200501 


R 




LAC 
PRINTC 


C215 




03711 


R 


103362 


R 


GEN* 


JMS 


XOUTL 




03712 


R 


200156 


R 




LAC 


GINC 




03713 


R 


341367 


R 




TAO 


M2 




03714 


R 


340072 


R 




TAD 


PTl 




03715 


R 


603661 


R 


/// 


JMP 


TOUMP+2 




03716 


R 


000000 


A 


TOUMPX 









03717 


R 


040073 


R 




OAC 

getc 


Tl 




03720 


R 


102752 


R 


GEN. 


JMS 
PRINTC 


UTRA 




03721 


R 


103362 


R 


GEN. 


JMS 


XOUTL 




«3722 


R 


440073 


R 




IS? 


Tl 




03723 


R 


603720 


R 




JMP 


.-3 




03724 


R 


623716 


R 




JMP. 


TOUMPX 




03725 


R 


000000 


A 


TDUMPC 









03726 


R 


200420 


R 




LAC 
PRINTC 


C255 




03727 


R 


10336? 


R 


GEN, 


JMS 


XOUTL 




03730 


ft 


200501 


R 




LAC 
PRINTC 


C2l5 




03731 


R 


103362 


R 


GEN. 


JMS 


XOUTL 




03732 


R 


20007? 


R 




LAC 


PTl 




03733 


R 


623725 


R 




JMP, 
.EJECT 


TDUMPC 
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/// 








03734 


R 


22011? 


R 


XRaN 


LAC» 




Ranpt 


03735 


R 


440112 


R 




IS? 




ranpt 


03736 


R 


740010 


A 




HAL 






03737 


R 


340112 


R 




TAD 




ranpt 


03740 


R 


36007? 


R 




TAO» 




PTl 


03741 


R 


740010 


A 




RAL 






03742 


R 


065522 


E 




OAC» . 


AB 




03743 


R 


360112 


R 




TAD» 




RANPT 


03744 


R 


065523 


E 




OAC» . 


AC 




03745 


R 


165521 


E 




Oi»* . 


AA 




03746 


R 


200112 


R 




LAC 




RANPT 


03747 


R 


565563 


R 




SAD* 




C .SGOM 


03750 


R 


140112 


R 




D2H 
RETURN 




RANPT 


03751 


R 


602517 


R GEN. 




JMP 




EFUN3 










/TWOS 


COMPLEMENT 


- 


CIA 


03752 


R 


000000 


A 


TWOS 


^ 






03753 


R 


740001 


A 




CMA 






03754 


R 


340167 


R 




TAD 




CI 


03755 


R 


623752 


R 




JMP# 
.EJECT 




TWOS 



/Random number generator. 
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. IFUND 


MULTI 






003756 


R 




COMEIN= 


. , 




03756 


R 


235564 


R 




PEGIN 


LAC. 


( .SCOM + 3 


03757 


R 


040PI0C' 


R 






OAC 


BOTTOM 


03760 


R 


225565 


R 






LAC, 


( .SC0M*2 


03761 


R 


040001 


R 






OAC 


BUFSTX 


03762 


R 


044140 


R 






OAC 


FILE01 


03763 


R 


044173 


R 






OAC 


FILE02 


03764 


R 


044125 


R 






OAC 


FILE03 


03765 


R 


345566 


R 






TAD 


(3 


03766 


R 


040002 


R 






OAC 


ENDT 


03767 


R 


04000'; 


R 






OAC 


FRSTCV 


03770 


R 


040003 


R 






OAC 


LASTCV 


03771 


R 


040006 


R 






OAC 


LASTV 


03772 


R 


204140 


R 






LAC 


FILE01 


03773 


R 


345567 


R 






TAO 


(2 


03774 


R 


042360 


R 






OAC 


FLACl 


03775 


R 


200161 


R 






LAC 


FILEXT 


03776 


R 


062360 


R 






OAC* 
.INIT -3, 


FLACl 
0.RECOVR 


03777 


R 


000775 


A 


GEN, 




CAL+0,1000 -34777 


04000 


R 


000001 


A 


GEN* 




1 




04001 


R 


003521 


R 


GEN* 




RECOVR+0 




04002 


R 


000000 


A 


GEN« 






.WRITE 


-3.2.FOCAL9,40 


04003 


R 


002775 


A 


GEN* 




CAL-»-2»i000 -3*777 


040(14 


R 


000011 


A 


GEN* 




11 




04005 


R 


000177 


R 


GEN* 
GEN* 




F0CAL9 
.DEC 




04006 


R 


777730 


A 


GEN* 


BEGINr. 


-40 

.ENOC 

.IFDEF 

.ENOC 


MULTI 


040H7 


R 


205521 


E 






LAC .AA 




04010 


R 


042360 


R 






OAC FLACl 




04011 


R 


042420 


R 






OAC FLAC2 




04012 


R 


042427 


R 






OAC FLAC3 
. I FUND 


MULTI 


04013 


R 


205570 


R 






LAC <0UTBUF+2 


04014 


R 


105431 


R 






JMS 


.PUT I 


04015 


R 


602644 


R 






JMP 


XSBEGN 






004046 


R 




BUFFER= 


:COMEIN+70 








004066 


R 




COMOUT: 


:COMEIN-M10 




04066 


R 










.LOG 


COMOUT 


04066 


R 


000215 


A 






215 

.ENOC 

.IFDEF 

OAC 

TAO 

OAC 

TAD 

OAC 

JKP 

.ENOC 


/STOPPER 

MULTI 

FLAC14 

(1 

FLAC15 

(1 

FLAC16 

MSTART 
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.EJECT 
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/LIBRARY 


COMMAND format: 














/ 


LIBRARY 


IN FILE 














/ 


LIBRARY 


OUT FILE 














/ 


UPRaRY 


WRITE "ANY 


COMMAND 












/ 


LIPRaRY 


WRITE ALL 














/ 


LIBRARY 


WRITE XX. 00 














/ 


LIBRARY 


WRITE XX. YY 














/ 


LIBRARY 


KILL 














/ 
/ 

libRaR 


LIBRARY 


CLOSE 




0'*067 


R 








SPNOR 




/IGNORE SPACES 


04067 


R 


li?i2233 


R 


GEN» 




JMS 


XSPNOR 




04070 


R 


540501 


R 






SAD 
POPJ 


C215 


/iGnORE COMM*nO jF Cr 


04071 


R 


602265 


R 


GEN« 




jmp 


XPOPJ 




04072 


R 


540433 


R 






Sao 

POPJ 


C273 


/IGNORE if; 


04073 


R 


602265 


R 


GEN» 




JMP 


XPOPJ 




04074 


R 


777767 


A 






LAW 


-11 




04075 


R 


102110 


R 






JMS 
SORTC 


FETVAR 
GLIST 




04076 


R 


101321 


R 


GEN, 




JMS 


XSORTC 




04077 


R 


000453 


R 


GEN» 






GLIST-i 




04100 


R 


741000 


A 


GEN» 




SKP 
ERROR 
• DEC 


32 




04101 


R 


603435 


R 


GEN» 




JMP 
SQRTJX 


ERR2-32 
LIBCMD 




04102 


R 


102040 


R 


GEN» 




JMS 


XSORTX 




04103 


R 


000331 


R 


GEN» 
GEN* 




ERROR 
.OEC 


LIBCMD-1 
32 


/BAD LI BR CMO ARC 


04104 


R 


603435 


R 


GEN» 


/ 

LBIN 


JMP 


ERR2-32 




04105 


R 


104234 


R 




JMS 


LBFILE 


/GET FILE Name 


04106 


R 


200030 


R 






LAC 


blkin 


/SEtUP INPUT C*L'S 


04107 


R 


040032 


R 






OAC 


librsh 


/SIGN BIT 


04110 


R 


044114 


R 






DAC 


L8IN01 




04111 


R 


044136 


R 






DAG 


LeiN02 




04112 


R 


044266 


R 






DAC 


LBIN03 


/ 


04113 


R 


103553 


R 






JMS 
.IFOEF 
JMS 
.ENDC 


SETRCL - 

MULTI 

lOBUSY 


...',■ / V L ^ •- 


04114 


R 








LBIN01 


.INIT 


,0,RECOVR 




04114 


R 


000000 


A 


GEN, 




CAL+0,il 


000 0«777 




04115 


R 


000001 


A 


GEN» 




1 






04116 


R 


003521 


R 


GEN* 




RECOVR + l 


3 




04117 


R 


000000 


A 


GEN, 






.IFOEF 
JMS 
.ENOC 


MULTI 
lOBUSY 




04120 


R 


204125 


R 






LAC 


FILE03 




04121 


R 


505571 


R 






AND 


(77777 




04122 


R 


044125 


R 






OAC 


FILE03 
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004125 


R 




riLE03s. 


.♦2 






04123 


R 








LBINlA 


.FSTAT 


0,XX 




PI4123 


R 


003CH(? 


A 


GEN» 




CAL + 30C'a 


0S777 




04124 


R 


000510? 


A 


GFN» 




2 






04i?5 


R 


9?Z(>i7i9i 


A 


GEN* 




XX 






04l?6 


R 


044234 


R 






OAC 


LBFILE 


„ 


04127 


R 


204125 


R 






LAC 


FILe03 




04130 


R 


505552 


R 






*N0 


(700000 




04131 


R 


741200 


A 






SNA 






04132 


R 


6W4136 


R 






JMP 


.♦4 




04133 


R 


204234 


R 






LAC 


LBFILE 




04134 


R 


741200 


A 


GEN» 




SNA 

ERROR 

.DEC 


34 




04135 


R 


603433 


R 


GEN. 




JMP 


ERR2-34 
















,IFOEE MULTI 




- 












JMS lOBUSY 
















.ENDC 










004140 


R 




F1LE01=, 


.♦2 






04136 


R 








LBIN02 


.SEEK 3. XX 


~ ; ■ •'■ ' ; 


04136 


R 


000000 


A 


GEN* 




CAL 04777 






04137 


R 


000003 


A 


GEN* 




3 






04140 


R 


000(!I0PI 


A 


GEN- 




XX 
.irOEF 

JMS 
.ENOC 


HULTI 

loeusY 




04141 


R 


200162 


R 






LAC 


CFRSX 




04142 


R 


040063 


R 






OAC 


PC 




04143 


R 


200061 


R 




LBINLP 


LAC 


CHAR 




04144 


R 


540501 


R 






SAO 
POPJ 


C215 


/ALL DONE 


04145 


R 


602265 


R 


GEN. 




JMP 


XPOPJ 




04146 


R 


540433 


R 






SAO 


C273 




04147 


R 


601203 


R 






. JMP 
GETC 


PROCES 


/MORE IN COME IN 


04150 


R 


102752 


R 


GEN, 




JMS 


UTR* 




04151 


R 


604144 


R 






JMP 


LBINLP+1 




04152 


R 


104260 


R 




RDEOM 


JMS 


LBIEND 


/END LIBR IF OPEN 


04153 


R 


200501 


R 






LAC 


e215 




04154 


R 


60334; 


R 






JMP 


XI33NX-f2 




04155 


R 


104260 


R 




HSPX 


JMS 


LBIEND 


/END LIBR IF OPEN 


04I56 


R 


604I43 


R 




/ 

L80UT 


JMP 


LBINLP 




04157 


R 


104234 


R 




JMS 


LBFILE 


/GET FILE NAME 


04160 


R 


200031 


R 






LAC 


BLKOUT 


/Setup output cal'S 


04161 


R 


044171 


R 






DAC 


LB0UT2 




04162 


R 


044202 


R 






OAC 


LBOUT3 




04163 


R 


044210 


R 






DAC 


LBOUT4 




04164 


R 


103544 


R 






JMS 
.lEDEF 
JMS 
.ENDC 


SETWCL 

MULTI 
lOBUSY 




04165 


R 








LBOUTi 


. INIT O.B 


.RECOVR 




04165 


R 


000000 


A 


GEN, 




CAL*0.1000 04777 




04166 


R 


000001 


A 


GEN* 




1 
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<»4167 


R 


003521 


R 


GEN* 




RECOVR4-0 




04170 


R 


a^9(^w 


A 


GEN» 






.IFDEF 
JMS 
.ENDC 


MULTI 
lOBUSY 






004173 


R 




F!LE02= 


.♦2 


^ 


04171 


R 








LBOUT2 


.ENTER 0, 


XX 


04171 


R 


000000 


A 


GEN* 




CAL 0«777 




04172" 


R 


000004 


A 


GEN* 




4 




04173 


R 


000000 


A 


GEN» 




XX 

.IFDEF 
JMS 
.ENDC 


MULTI 
I08USY 


04174 


R 


777777 


A 






LAW -1 




04175 


R 


040032 


R 






DAC LIRRSW 


04176 


R 


604143 


R 






JMP LBINLP 


04177 


R 


200032 


R 




L8CL0S 


LAC 


LIbRSW 


04200 


R 


740100 


A 


GEN* 




SMA 

ERROR 

.OEC 


35 


0420I 


R 


603432 


R 


GEN» 




JMP 
.IFDEF 

JMS 
.ENDC 


ERR2-35 

MULTI 

lOSUSY 


04202 


R 








LBOUT3 


.CLOSE 





04202 


R 


0^10000 


A 


GEN, 




CAL 04777 




042B3 


R 


000006 


A 


GEN« 




6 




04204 


R 


604214 


R 






JMP 


LBOUTZ 


04205 


R 


200032 


R 




LBKILL 


LAC 


LIBRSM 


04206 


R 


740100 


A 


GEN. 




SMA 

ERROR 

.OEC 


35 


84207 


R 


603432 


R 


GEN. 




JMP 

.IFOEF 
JMS 
.ENDC 


ERR2-35 

MULTI 

lOBUSY 


04210 


R 








LBOUT4 


. INIT 


0,0.RECOVR 


04210 


R 


000000 


A 


GEN* 




CAL*0»1000 0S777 


04211 


R 


000001 


A 


GEN* 




1 




04212 


R 


003521 


R 


GEN* 




RECOVR+0 




04213 


R 


000000 


A 


GEN* 









04214 


R 


140032 


R 




LBOUTZ 


DZM 


LIBRSW /CLEAR LIBR SHITC 


04215 


R 


200027 


R 






LAC 


TTOUT /RESET WRITE CAL* 


042I6 


R 


103544 


R 






JMS 


SETHCL 


04217 


R 


604143 


fl 




/ 

LBWRIT 


JMP 


lbinlp /qo finish c«d 


04220 


R 


20003? 


R 




LAC 


LIBRSW 


04221 


R 


,74010? 


A 


GEN» 




SMa 

pRROR 

.DEC 


35 


04222 


R 


603432 


R 


GEN» 




JMP 


ERR2-35 


04223 


R 


601234 


R 






JMP 


WRITE 


04224 


R 


200032 


R 




lBTEXT 


LAC 


LlBRSM 


04225 


R 


740100 


A 






SMA 





FOcAL 



PACE 


83 


























ERROR 


8 












GEN» 




.DEC 






04226 


R 


603465 


R 


GEN* 




JMP 


ERR2-a 




04227 


R 








LBTEXX 


GETC 




/PUT COMMAND INTO 


B4227 


R 


102752 


R 


GEN» 




JMS 
PRINTC 


UTRA 


/OUTPUT BUFFER 


84230 


R 


10336? 


R 


GEN* 




JMS 


XQUTL 




04231 


R 


540501 


H 






Sad 

POPJ 


C215 


/ALL DONE? 
/YES 


04232 


R 


602265 


R 


GEN* 




JMP 


XPOPJ 




04233 


R 


604227 


R 






JMP 


LBTEXX 


/NO-MORE 


04234 


R 


000000 


A 




LBFILE 









04235 


R 


2^4125 


R 






Lac 


FILE03 




04236 


R 


345567 


R 






TAD 


<2 




04237 


R 


044260 


R 






DAC 


LBIEND 




04240 


R 


200161 


R 






LAC 


FILEXT 


/SETUP 'FCL' AS E 


04241 


R 


064260 


R 






OAC» 


LBIEND 




04242 


R 


200061 


R 






LAC CHAR 






04243 


R 


540416 


R 






SAD C240 






04244 


R 


741000 


A 






SKP 






04245 


R 


604250 


R 






JmP .*3 
GETC 






04246 


R 


102752 


R 


GEN* 




JMS 


UTRA 




04247 


R 


604243 


R 






JMP .-4 






04250 


R 


777772 


A 






LAW 


-6 




04251 


R 


102110 


R 






JMS 


FETVaR 


/GET FILE NAME 


04252 


R 


200061 


R 






LAC 


CHAR 




04253 


R 


540501 


R 






SAO 


C215 


/CR 


04254 


R 


741000 


A 






SKP 






04255 


R 


540433 


R 






SAD 


C273 


/; 


04256 


R 


624234 


R 


GEN* 




JMP* 

ERROR 

.DEC 


LBFILE 
33 




04257 


R 


603434 


R 


GEN* 


/ 

LBIEND 


JMP 


ERR2-33 




04260 


R 


000000 


A 











04261 


R 


200026 


R 






Lac 


TTIN 


/RESTORE INPUT 


04262 


R 


10 3553 


R 






jMS 


setrcl 




04263 


R 


200032 


R 






LAC. 


LIBRSm 


/IF LIBRARY OPEN, 


04264 


R 


741200 


A 






SNA 




/CLOSE IT 


04265 


R 


624260 


R 






JMP, 


LBIEND 




04266 


R 








LBIN03 


.CLOSE 





».■'■■ 


04266 


R 


000000 


A 


GEN* 




CAL 04777 






04267 


R 


000006 


A 


GEN* 




6 






04270 


R 


140032 


R 






OZM 


LIBRSW 


/CLEAR SWITCH 


04271 


R 


624260 


R 






JMP* 


LBIEND 





.EJECT 



FOCAL 



PAGE 


84 
























/FLOATING 


POINT ARITHMETIC 


INTERPRETER FOR FOcaL 












/FLOATING 


POINT Package - exponential 


04272 


R 








FEXP 


getsgn 






04272 


R 


225522 


E 


GEN» 




lac* 


.AR 




04273 


R 


750100 


A 






smaicl* 






04274 


R 


604277 


R 






JMp 


.♦3 




04275 


R 


125534 


E 






JMS. 


.BA 




04276 


R 


750001 


A 






CLAtCMA 






04277 


R 


040122 


R 






OAC 


SIGN2 


/C<SIGN),-j^ IF X<B 


04300 


R 


125525 


E 






JMS. 


.AP 


/PUT 


04301 


R 


000076 


R 






flaRg 






04302 


R 


125515 


E 






JMS. 


DEXP 




04303 


R 


604305 


R 






JMP 


.♦2 




04304 


R 


000076 


R 






FLARG 






04305 


R 


440122 


R 






IS2 
RETURN 


SIGN2 




04306 


R 


602517 


R 


GEN. 




JMP 


EFUN3 




04307 


R 


105140 


R 






JMS 


FINT 




04310 


R 


600137 


R 






FPUT XY 






04311 


R 


500167 


R 






fget fltone 




04312 


R 


400137 


R 






FDIV XY 






04313 


R 


000000 


A 






fext 
return 






04314 


R 


602517 


R 


GEN» 


/FLOATING 


JMP 
POINT ARC 


EFUN3 

Tangent 




04315 


R 


125513 


E 




ARTN 


JMS. 


datan 




04316 


R 


604320 


R 






JMP 


.♦2 




04317 


R 


000076 


R 






FLARG 
RETURN 






04320 


R 


602517 


R 


GEN. 


/FLOATING 


JMP 

LOGARITHM 


EFUN3 




04321 


R 








FLOG 


GETSGN 






04321 


R 


225522 


E 


GEN* 




LAC. 


.AB 




04322 


R 


741200 


A 


GEN* 




SNA 

ERROR 

.DEC 


25 


/ZERO aRGUEMENT FOI 


04323 


R 


603444 


R 


GEN» 




JMP 


ERR2-25 




04324 


R 


751100 


A 






spaicLa 






04325 


R 


125534 


E 






JMS» 


.BA 


/ne:gative argument 


04326 


R 


125525 


E 






JMS. 


• AP 


/PUT 


04327 


R 


000076 


R 






FLARG 






04330 


R 


125516 


E 






JMS. 


DLOG 




04331 


R 


604333 


R 






JMP 


.♦2 




04332 


R 


000076 


R 






FLARG 
RETURN 






04333 


R 


602517 


R 


GEN* 




JMP 


EFUN3 














/FLOATING 


POINT SINE ANO COSINE 


04334 


R 


125514 


E 




FCOS 


JMS, 


OCOS 




04335 


R 


604337 


R 






JMP 


.♦2 




04336 


R 


000076 


R 






FLARG 
RETURN 






04337 


R 


602517 


R 


GEN. 




JMP 


EFUN3 




04340 


R 


125517 


E 




FSIN 


JMS, 


DSIN 




04341 


R 


604343 


R 






JMP 


.♦2 




0434? 


R 


000076 


R 






FLARG 


/-""" 
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04343 R 602517 R GEN« 



RETURN 

JMP 

.EJECT 



EFUN3 



FOCAL 
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B4344 


R 


000000 


A 


04345 


R 


040123 


R 


B4346 


R 


20004C* 


R 


04347 


R 


741200 


A 


04350 


R 


604372 


R 


04351 


R 


103752 


R 


04352 


R 


340055 


R 


04353 


R 


741100 


A 


04354 


R 


604361 


R 


04355 


R 


750001 


A 


04356 


R 


340040 


R 


04357 


R 


040055 


R 


04360 


R 


750001 


A 


04361 


R 


340132 


R 


04362 


R 


740100 


A 


0*363 


R 


750000 


A 


04364 


R 


340040 


R 


04365 


R 


741100 


A 


04366 


R 


604413 


R 


04367 


R 


344505 


R 


04370 


R 


740100 


A 


04371 


R 


750000 


A 


04372 


R 


340210 


R 


04373 


R 


040125 


R 


0*374 


R 


340211 


R 


04375 


R 


040124 


R 


04376 


R 


200125 


R 


04377 


R 


103752 


R 


04400 


R 


040125 


R 


0**01 


R 


205555 


R 


04402 


R 


460124 


R 


04403 


R 


360124 


r' 


04484 


R 


344770 


R 


04405 


R 


751100 


A 


04406 


R 


604416 


R 


0**07 


R 


0*0124 


R 


0*410 


R 


440125 


R 


0**11 


R 


604453 


R 


0**12 


R 


460124 


R 


0*413 


H 


200132 


R 


0**1* 


R 


345572 


R 


0*415 


R 


040132 


R 



04416 f 200040 " 

04417 R 74l?00 A 
04420 R 604502 R 

•04421 R 103752 R 



/INPUT/OUTPUT ROUTINES FOR THE FOCAL 

/FLOATING POINT PACKAGE. 

/IN THE COMMENTS BELOW:. 

/ F = NUMBER OF DIGITS TO BE OUTPUT 

/ = NUMBER OF DECIMAL PLaCES 

/ E = DECIMAL EXPONENT 

/ P s NUMBER OF PLACES REMAINING TO BE 



zFISW 
rOECP 
zBEXP 



/ 

TOO 



R6 



RET 



PRINTED BEFORE DECIMAL POINT 


SCOUNT 

FISM 



DAC 

LAC 
SNA 
JMP 

JMS TyOS 
TAD 
SPA 
JMP 

CLa!CMa 
TAD 
DAC 

CLA'CMA 
TAD 
SNA 
CLA 
TAd 
SP* 
JMP 

Tad 

SMA 
CLA 

Tad 

DAC 

Tad 

OAc 

LAC 

JMS 

DAC 

LAC 

lSZ» 

TAD* 

TAD 

SPAlCLA 

JMP 

OAC» 

iSi 

JMP 

ISZ> 

LaC sexp 

TAd <1 

DAC BExp 



/SaVe number of DIGITS AVAILABLE - *SET cOUnTS* 



/FLOATING OUTPUT? 

R6 /YES. ROUnD Of^F To 6 PlACES 
/NO, COMPUTE FIELD Si^eS 
DECP 

/ F-D > ? 

.+5 /YES 

/NO, 
FISH 

DECp /mAkE s F-1 

BEXP /COMPARE DECIMAL EXPONENT 
/ F-0 > E? 

/N9, ROUND OFF TO .F PLACES 
/YES 

/ 0+E < ? 
/YES, NO ROUNDING NEEDED, GO TO PRINT 

/NO, ROUND TO D*E PLACES, 
/TO A MAXIMUM OF D PLACES 



FtSW 

RETi 
MO 



TWOS 



RN02 

TEMPO 

BUFST 

PLCE 

TEMPO 

TEMPO 
(5 

plce 

PLCE 
M12 



/ cROUNO UP * 

/Save number*i of places to round 

/SET up bLIFFER address aT WHICH 
/R0UNDINC OFF SHOULD START 



TO 



/SET UP COUNT OF MAXIMUM NUMBER 
/OF CARRIES ALLOWABLE 

/LITTLE EXTRA ON FIRST DIGIT, 

/ADO 1 To Digit *t current position 



/CARRY REQUIRED? 
FPRNT /no, go to OUTPUT 

PLCE /YES. Make current digit zero 

TEMPO /BEGINNING Op HUefER REAChED? 

OECR /NO, DECREMENT BUFFER ADDRESS AND REPEAT 

PLCE /YES, SET MANTISSA TO 0.1 

RETI LaC BEXP /COMPENSATE BY INCREf EXPONENT 

/pjx eor output Oe .J 
/...wAD June 69 

/FORMERLY ISZ BEXP REPLACED ABOVE THREE INSTRUCTIONS 

FPRNT LAC FISM /aUTO-INDEX REGISTER ALREADY SET. - •PRINT* 

SNA / F r ? 

JMP fLOPX /YeS. output as FLOATING NUMbeR 

JHS TMoS /Mo. 



FOcAL 



PAGE 87 



04422 


R 


040124 


R 




OAC 


FCOUNT 


04423 


R 


340132 


R 




TAD 


BEXP 


04424 


R 


740300 


A 




SMAISZa 




04425 


R 


(>e*5efi 


R 




JMP 


XXX 


04426 


R 


340055 


R 




TAD 


OECP 


04427 


R 


740100 


A 




SMA 




04430 


R 


750000 


A 




CLA 




04431 


R 


103752 


R 




JMS TWOS 




04432 


R 


340132 


R 




TAD 


BEXP 


04433 


R 


103752 


R 




JMS TWOS 




04434 


R 


040125 


R 




OAC 


TEMPO 


04435 


R 


200132 


R 


SACK 


LAC 


BEXP 


04436 


R 


340125 


R 




Tad 


TEMPO 


04437 


R 


751200 


A 




SNA! CLA 




04440 


R 


604465 


R 




JMP 


DIG 


04441 


R 


340125 


R 




TAD 


TEMPO 


04442 


R 


340167 


R 




TAD 


Cl 


04443 


P 


751100 


A 




SPA5CLA 




04444 


R 


777760 


A 




LAW 


240-260 


04445 


R 


104460 


R 


IN 


JMS 


OUTa 


04446 


R 


440125 


R 




iSi 


TEMPO 


04447 


R 


604435 


R 




JMP 


BACK 


04450 


R 


200415 


R 




LAC 
PRINTC 


PER 


04451 


R 


103362 


R CEN» 




JMS 


XOUTL 


04452 


R 


604435 


R 


///// 


JMP 


BACK 


04453 


R 


750001 


A 


OECR 


CLA!CM4 




04454 


R 


340124 


R 




Tad 


PLCE 


04455 


R 


040124 


R 




dac 


plce 


04456 


R 


750000 


A 




CLA 




04457 


R 


604402 


R 


///// 


JMP 


RET 


0^*60 


R 


000000 


A 


OUTA 







04461 


R 


105036 


R 




JMS 


OUToG 


04462 


R 


440124 


R 




Is? 


FCOuNt , 


04463 


R 


624460 


R 




JMP* 


OUTA 


04464 


R 


624344 


R 


///// 


JMP» 


TGO 


04465 


R 


750001 


A 


DIG 


cla:cma 




04466 


R 


340132 


R 




Tad 


BEXP 


04467 


R 


04013? 


R 




dac 


BEXP 


04470 


R 


440123 


R 




1S2 


SCOyNT 


04471 


P 


604476 


R 




JMP 


DIGP5 


04472 


R 


750001 


A 




CLAICMA 




04473 


R 


040123 


R 




DAC 


SCOUNT 


04474 


R 


750000 


A 




CLA 




04475 


P 


604445 


R 




JMP 


IN 


04476 


R 


220014 


A 


OIGP5 


LAC* 


FLTXR 


04477 


R 


604445 


R 


//// 


JMP 


IN 










/DO nOATING OUTPUT 




04500- 


R 


200040 


R 


XXX 


LAC 


FISW 


04501 


R 


741000 


A 




SKP 




04502 


R 


200055 


R 


FLOPX 


LAC 


OECP 



/SET UP COUNT TO PRINT F PLACES 

/ E > F ? 

/TES, PRINT X'S 

/ E < F-O 7 
/NO, TAKE P = E 

/YES. Take p = f-d 



/SET UP MINUS P 
/PRINT 00. ODD 



/ P = E 7 



/NO, 



/YES, PRINT DIGIT 



/ P > 1 ? 

/YES, Take space; otherwise zero 

/PRINT character 

/p characters printed? 

/NO 

/YES, 

/PRINT DECIMAL POINT 



/PRINT cH*R*cTeR 

/F CHARACTERS PrINtEO? 

/NO. RETURN 

/YES, NUMBER FINSHEO 



/REDUCE E. bT 1 

/ARE ALL SIG. FIGS. ySED? 

/NO 
/YES, 

/reset count to -1 

/and leave c(ac) = 
/Take next digit from buffer 
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04503 


R 


103752 


R 


04504 


R 


741200 


A 


04505 


R 


777767 


A 


04506 


R 


040124 


R 


04507 


R 


750PI00 


A 


0451B 


R 


105036 


R 


04511 


R 


200415 


R 


04512 


R 


103362 


R 


04513 


R 


444^44 


R 


04514 


R 


220014 


A 


04515 


R 


104460 


R 


B45l« 


R 


440123 


R 


B45i7 


R 


604514 


R 


v.ni 


R 
R 


750001 
040123 


A 
R 


84522 


R 


750000 


A 


B4523 


R 


604515 


R 



HO 



GEN« 



JMs 

SNA 

LAW 

OAC 

CLA 

JMS 

LAC 

PRINTC 

JMS 

ISZ 

L*C» 

JMS 

ISZ 

JMP 

CLAiCMA 

OAC 

CL* 

JHp 

.EJECT 



TWOS 

-DIGITS 

FCOUNT 

OUTDG 
PER 

XOUTL 

tgo 

FLTXR 

outa 

ScOUNT 
.-3 

ScOUnT 
.-6 



/Set count to print 
^6 digits after decimal point 

/PRINT "0" 
/PRINT "." 

/SEND RETURN 
/TAke Ne;XT oIGIT fROm BUffeR 
/PRINT IT 
/TEST FOR END OF INPUT 

/AND REPEAT 

/OUTPUT eXtra Zeros. 
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045?4 
04525 
04526 
045?7 
04530 
«'4531 
0453Z 
04533 
04534 
04535 
04536 
04537 
04540 
04541 
04542 
04543 
04544 
04545 

04546 
04547 

B<550 
04551 
04552 

04553 
04554 

04555 
04556 
04557 
9^560 
04561 



04562 
04563 
04564 

04565 
04566 
04567 
04570 
04571 

04572 
04573 
04574 
04575 
04576 
04577 



000800 
165522 
165523 
l40fl37 
140131 
750001 
040130 
777525 
340(161 
741200 
604543 
341367 
750200 
604544 
040130 
104662 
540416 
604543 



R 104550 
R 624524 



000000 
540414 

624550 

102242 
624550 

604565 
040127 

440131 
l0''600 
740200 



603443 
104562 
604551 
004565 
777477 
340061 
751100 
624550 
777445 

340061 
75010(» 
62455PI 
200061 
500151 
604556 



/DOUBLE PRECISION OECIMaL-BINaRY 
/INPUT AND CONVCSION FOR ♦ OR 
OECONV 



CONVCSION FOR 


DZH. .AB 
• AC 



XXX. 



/FORMERLY 



///// 

OECON 



GEN, 



OSAVE 



GEN» 
GEN* 



OZM« 

DZM 

OZh 

cla:cma 

OAC 
LAW 
TAO 
SNA 
JMP 

tao 

S2a!CLA 

JMP 

OAC 

JMS 

SAO 

JMP 

HAS JMP 

JMS 

JMP. 



SAO 

JMP. 

TESTN 

JMS 

JMP* 

JMP 

OAC 

ISZ 

JMS 

sza 

ERROR 

.DEC 

JMP 

JMS 

JMP 



MINUSA=. 
OTST 



/LAW -332 



OVER2 
ONUMbR 

ISIGN 
-253 

CHAR 

.♦5 
"2 

.♦3 
iSiGN 
INPuT 
C240 

.-4 

DECON 
OECONV 



C305 
OECON 

XTESTN 
OECON 
OTST 
DIGIT 

ONUMBR 
HULTla 

26 

ERR2-26 

INPUT 

OECONtl 



/♦sign: get NEXT 
/CHECK - SIGN 



/GET NEXT 



/TEST LEAD Character for terminator 



/YES - SORTCN IN AC 

/INDEX NUMBER OF DIGITS 

/REMAIN MUST s0 SINCE OVERFLOW IS CHECKED 



/iNPUT-oVERFlOW ERROR 



/CONTINUE 



333 



.WAr 



e4600 R 000000 A 



///// 

MULTlB 



LAW -301 

TAD CHAR 

SPAICLA 

JMP* DECON 

LAW -333 

CHANGED TO LAW • 

TAO CHAR 

SMA'CLA 

JMP. DECON 

LAC CHAR 

AND C77 

JMP OSAVE 

/ROUTINE TO MULTIPLY 



.JUNE 69 FOR 0Z gUG 
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046B1 


R 


2("B(»37 


R 


046P2 


R 


040fi36 


R 


5)46(13 


R 


225523 


E 


«<46P»4 


R 


040035 


R 


(J46PI5 


R 


22552? 


E 


(?t46C6 


R 


fj40034 


R 


P46PI7 


R 


140126 


R 


04610 


R 


104625 


R 


0-»$ll 
04612 


P 


104^23 


R 


R 


104641 


R 


04613 


R 


104623 


R 


04614 


R 


200127 


R 


046t5 


R 


040036 


R 


04616 


R 


140035 


R 


P46i7 


R 


140034 


R 


046?0 


R 


104641 


R 


04621 


R 


200126 


R 


04622 


R 


624600 


R 


04623 


R 


000000 


A 


04624 


R 


200037 


R 


04625 


R 


744010 


A 


04626 


R 


040037 


R 


04627 


R 


225523 


E 


04630 


ff 


740010 


A 


04631 


R 


065523 


E 


04632 


R 


225522 


E 


04633 


R 


740010 


A 


04634 


R 


06552? 


E 


04635 


R 


200126 


R 


04636 


R 


740010 


A 


04637 


R 


040126 


R 


04640 


R 


624623 


R 


04641 


R 


000000 


A 


04642 


R 


754000 


A 


04643 


R 


200037 


R 


04644 


R 


340036 


R 


04645 


R 


040037 


R 


04646 


R 


750010 


A 


04647 


R 


365523 


E 


04650 


R 


340035 


R 


04651 


R 


065523 


E 


04652 


R 


750010 


A 


04653 


R 


365522 


E 


04654 


R 


340034 


R 


04655 


R 


065522 


E 


04656 


R 


750010 


A 


04657 


R 


340126 


R 


04660 


R 


040126 


R 


04661 


R 


624641 


R 


0^662 


R 


000000 


A 


04663 


R 


200025 


R 


04664 


R 


750200 


A 



///// 

MULT2 



dublad 



///// 

/INPUT 
INPUT 



LAC 
OAT 

Lac* 

DAC 

LAC. 

DAC 

DZm 

JMS 

jmS 

JMS 

JMs 

LAC 

DAC 

OZM 

OZM 

JMS 

LAC 

JMP» 



LAp 

CLL JrAL 

OAC 

LAC, 

RAL 

DAC* 

LAC* 

RAL 

OAC« 

LAC 

RAL 

DAC 

JMP, 



CLASCLL 

LAC 

Tad 

DAC 

CLAIRAL 
TAD* .AC 
TAD 
OAC* .AC 

cl*:ral 

TAO» .AB 

TAO 

DAC* .AB 

CLAIRAL 

TAD 

OAC 

JMP, 



.AC 

,AC 

.AB 

,AS 



0VER2 
OTEMP 

•AC 
LTEMp 

.AB 

HTEMP 

REMAIN 

MULT2 

MULT2 

D^bI-Aq 

MULT2 
DIGIT 

OTEMP 

LTEHP 

MTEMP 

DUBLAD 

REMAIN 

MULTia 



/FROM Tad 

/qOUrLE PRECISION WORo 
/BY TEN (DECIMAL) 
/REMAlNsREMAlNDER 



/CALL SUBROUTINE TO 
/MULTIPLY gY TWO 
/C*LL dO^bLE *D0 

/ADO LaST digit received 



/E^IT WITH REMAINDER 
/IN AC 



/MULTIPLY 0VER2, LORD, HORq 8^ 2 
0Ve;R2 

0VER2 



REMAIN 

REMAIN 

HULT2 

/TRIPLE PRECISION ADDITION 

0VER2 
OVERl 
0VER2 



ACIL 



ACIH 



REMAIN 
REMAIN 
DUBLAD 



FROM Text or keyboaRo- 
LAc insub 

SZAICLA 



/INPUT A CHARACTER 
/NflN-ZfRO FOR KeYBOARq 
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04665 R 60467H R 

04666 R ll''2752 R GEN» 

04667 R 624662 R 

04670 R 103322 R GTM* 

04671 R 624662 R 



JMP 


.♦3 


GETC 




JMS 


UTRA 


JMP, 


INPUT 


READC 




JMS 


XI33 


JMP» 


INPUT 


.EJECT 





rOCAL 



Page 


Q2 






















/FLOATtNG 


OUTPUT CONVERSION 


ROUTINE 


04672 


9 


0?000P! 


A 


FLOUTP 











04673 


R 


225522 


E 




lac» 




.AB 


/NUMREF!>0?? 


04674 


9 


750101^ 


A 




SMA'l 


cl* 






04675 


R 


77776^ 


A 




LAW 




240-255 


/PRlNj OAsH OR sPACE 


04676 


R 


340420 


R 




tah 




SMIN 














PRINTC 






04677 


R 


103362 


R GEN» 




JMS 




XOUTl 




0470(4 


R 


225522 


E 




LAC» 




,AB 


/Take absolute VaLue 


04701 


R 


751100 


A 




spa:i 


CL4 






04702 


R 


125534 


E 




JMS» 




• BA 




04703 


R 


750001 


A 




ClA'I 


Cm* 




/SUBTRACT 1 From 6InARY EXPQnEi 


04704 


R 


365521 


E 




Tad* 




.AA 


/COMPENSATE AT FGO4 


04705 


R 


(^65521 


E 




DAC» 




.AA 


■ 


04706 


R 


140132 


R 




oZm 




BEXP 


/INITIALIZE DECIMAL EXPONENT 


04707 


R 


225521 


E 


FG02 


LAC» 


. AA 




/IS -4<EXP0NENT<-i? 


04710 


R 


740100 


A 




SHA 








0'4711 


R 


604723 


R 




JHP 




FG03 




04712 


R 


340214 


R 




TAD 




TEN 




04713 


R 


750100 


A 




SMA'l 


CLA 






04714 


R 


604727 


R 




JMP 




FG04 




04715 


R 


125530 


E 




JMS, 




.*S 


/MULTIPLY 


04716 


R 


000214 


R 




TEN 






. 


04717 


R 


750001 


A 




cla:i 


CM4 






047?0 


R 


340132 


R 


FG03M2 


TAD 




BEXP 




04721 


R 


040132 


R 




DAC 




BEXP 




04722 


R 


604707 


R 




JMP 




FG02 




04723 


R 


125531 


E 


rG03 


JMS, 




.AT 


/DIVIDE 


04724 


R 


000214 


R 




TEN 








04725 


R 


200167 


R 




LAC 




Ct 




04726 


R 


604720 


R 


///// 


JMP 




FG03M2 




0^727 


R 


140127 


R 


FG04. 


02M 




DLGIT 


/MULTIPLY BY TWO 


04730 


R 


104623 


R 




JMS 




MULT2 


/i-E. Shift left 


04731 


R 


200211 


R 




LAC 




BUFST 


/INIT BUEFEr pointer 


04732 


R 


065573 


R 




DAC» 




(FLTXR 




04733 


R 


225521 


E 




LAC« 


.AA 






04734 


R 


045036 


R 




OAC 1 


OUTDG 


/TEMP COUNT 


04735 


R 


104600 


R 




JMS 




MULT 10 


/MULTIPLY BY TEN 


04736 


R 


604753 


R 




JMP 




FGOS 




04777 


R 


744020 


A 


FGOSA 


cll: 


RAR 






04740 


R 


044344 


R 




OAC 




TGO 


/TEMP 


04741 


R 


225522 


E 




LAC» 


.AB 






04742 


R 


740020 


A 




RAP 








04743 


R 


065522 


E 




DAC* 


.48 






04744 


R 


225523 


E 




LAC, 


• AC 






04745 


R 


740020 


A 




RAR 








04746 


R 


065523 


E 




OAC, 


.AC 






04747 


R 


200037 


R 




LAC 




0VER2 




04750 


R 


740P20 


A 




PAR 








04751 


R 


040037 


R 




OAC 




0VER2 




04752 


R 


204344 


R 




LAC 




TGO 


/TEMP 


04753 


R 


445(136 


R 


rcQs 


IS? 




OUTDG 


/TEMP COUNT 


04754 


R 


604737 


R 




JMP 




FG05A 




04755 


R 


741200 


A 




SNA 






/IS FIRST DIGIT A 2ER0 
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047^.0 
047A1 
04762 
e47(S3 
047«4 

0*765 
04766 
04767 



04775 
04776 
04777 
05000 
05001 
05002 
05003 
05004 

05005 
09006 
05007 
05010 
05011 
05012 
05013 
05014 
05015 
05016 
05017 
050?0 
05021 
05022 
05023 
05024 
05025 
05026 

05027 
05030 
05031 
05032 
05033 
05^34 
05035 



04770 R 

04771 R 

04772 R 

04773 R 



605P'25 
060014 
204770 
065521 
104600 
060014 
465521 

60*762 
200211 
065573 
004770 
777766 
104344 
624672 
200414 



050^6 " 
05037 R 



200132 
741100 
103752 
065521 
200132 
750100 
777776 
340420 

103362 
165522 
225521 
465522 
340213 
740100 
605010 
340212 
065521 
750001 
365522 

740200 
105036 
225521 
103101 
624672 
750001 
340132 
040132 
225522 
741200 
365523 
751200 
040132 
604760 

000000 
340152 



FG06 



0*774 p 103362 R GEN* 



M12=. 
DCOUNT 



/OUTPUT 



GCN< 



FG07 



JMP 

DAC* 

LAC 

OAC* 

JMS 

OKC* 

IS2» 

JMP 

LAc 

OAC» 



LAW 
JMS 
JMP 

LAC 
PR I 
JMs 
THe F 
LAC 
SPA 
JMS 
RAC 
LAC 
SNA 
LAW 
TAD 
PRI 
JMS 
OZM 
LAC 
ISZ 
TAD 
SMA 
JMP 
lAO 
OAC 
CLA 
TAD 
SZa 
JMS 

lac 

JMS 
JMP 
CLA 
TAD 
DAC 

LAC 

SNA 
TAD 
SNA 
DAC 
JMP 



,»A 



,*A 



NTC 
XPONENl 

• . AA 

!CLA 



NTC 



, AB 

.AA 
.AB 



• .AA 

:CMA 

• .AB 



. AA 



:cMA 



• .AB 

• .AC 

•CLA 



///// 
OUTOG 





Tad 



FG07 

TLTXR 
OCOUNT 

MuLTi0 
FLTXR 

.-3 

bufst 

(FLTXR 
-OIGITS- 

Tcn 

FLOUTP 
C305 

XOUTL 

BEXP 

TWOS 

BExP 

253-255 
SMIN 

XOUTL 



M144 

.-3 

C144 



OUTOG 

PRNt 
FLOUTP 

BEXP 
BEXP 



BEXP 
FG06 

/OUTPUT 
C260 



/YES. IGNORE 
/MULTIPLICATIONS YIELD 



/IE. .672X10=6+. 72.. ETC 

/ALL DIGITS OUTPUT?? 

/no: CONTINUE 
/INIT BUFFER POINTER 



/OUTPUT MANTISSA ANQ EXPONENT 



/TAKE ABSOLUTE VaLUE OF EXPONENT 



/PRINT SIGN 



/CLEAR COUNT 



/SAVE TENS AND UNITS 
/OUTPUT HUNDREDS 

/UNLESS ZERO 
/PRjNT two DjGiTS 



/IGNORE FIRST DIGIT 
/SUBTRACT 1 FROM 
/DECIMAL EXPONENT 

/iS mAnTjSSA ZERO? 



/YES:EXP=0 



ONE DIGIT 
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815040 R 10336? R GCN. 
eS04i R 625C36 R 



PRINTC 

JMS XOUTL 

JMP» OUTDG 

.EJECT 
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05042 
05043 
05044 

05fi45 
05046 
05047 
05050 
05051 
05052 

05053 
050S4 
05055 
05056 
05057 
05060 
05061 
05062 
05063 



05064 
05065 
05066 
05067 
05070 
05071 
05072 
05073 
05074 

05075 
05076 
05077 
05100 
05101 
05102 
05103 
05I04 
05105 
05106 
05107 
05110 
05111 
05II2 



05113 
05114 
05115 
05116 
05117 
05120 
05121 



000(100 
750200 
104A62 
540416 
6PI5i?44 
1P4524 
200PI61 
342?43 
75020C1 
6(»5!161 
10466? 
140131 
1P4S5P1 
200131 
10375? 
040133 
225523 
74ii!»0 



603442 
225523 
065522 
200037 
065523 
200217 
065521 
125536 
440130 

125534 
125525 
400072 
777473 
340061 
750200 
605ii5 

104662 
104524 

200037 
440130 
103752 
340133 
040133 



125524 

400072 
200133 
741200 
625042 
750100 
605130 



/floatin 

FLINTP 



G POINT INPUT 

SZAICl* 

Sad C240 

JMP 
JMS 
LAC 

Tap 

SEa'CLA 
JMP 



FIGOl 



/FORMERL 
/SIGN BI 



GEN* 
GEN« 



INPUT 

.-2 

DECONV 

CHAR 
MPER 



JMS 

DZM 

JMS 

LAC 

JMS 

DAC 

LAC* 

SPA 

y A Lac* 



FlCOi 

INPUT 

DNUMBR 

DECON 

DNUMBR 

TWOS 

SEXP 



AC 



.AS 



ERROR 

• DEC 

JMP 

LAC* .AC 

OAC* .AS 

LAC 0VFR2 

OAC* .AC 

LAC 

OAC* .AA 

JMS, 

ISZ 

JMS* 

JMS* 

pTl+400000 



LAm 

TAD 

SiAiCLA 

JMP 

JNS 

JMS 

LAC 

IS? 

JMS 

TAD 

DAC 



.CO, 
I SIGN 
.BA 

.aP 

-305 
CHAR 

ENOFIX 

INPUT 

DEcONV 

0vEr2 

ISICN 

TWOS 

SEXP 

SEXP 



/IF C<AC) = 0. USE CHAR 
/IF C<AC) NON-ZeRO . GET NfXT 
/GET FIRST CHARACTER 
/IGNORE LEADING SPACES 

/READ FIRST DIGIT GROUP 



/ENDED BY PERIOD? 
/YES, READ 2AND GROUP 



/NUMBER OF DIGITS IN SEXP 
/NO 



sz* Sequence which allowed overflow into 



27 
ERR2-27 



P43 



/NORMALIZE FIRST 
/SKIP IF POSITIVE 



/SAVE nUmBER 



/"E" READ IN? 
/NO 



/END OF FLOATING POINT [NPUT 
/compensate FOR DECIMAL EXPO 
ENDFI JMS* ,A0 

PTl+400000 
EnOFIX lAC SEXP 

SNA 

JMP# FLINTP 

SMAICLA 

JMP FIG04 



/YeS - cONVfRT OEC'"**- E'<P°NeNT 
/DECIMAL pOINT Is 



/C<SeXP)PLACES to RIGHT 
/OF LAST DIGIT 



NENTS 

/RESTORE MANTISSA 

/TEST OECImAu EXPOnEkiT 
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05122 


R 


105140 


R 


f5l23 


R 


400214 


R 


05124 


R 


620PI72 


R 


05125 


R 


0[>I0I!)00 


A 


05126 


R 


200167 


R 


W5127 


R 


605135 


R 


05130 


R 


10514f) 


R 


05131 


R 


300214 


R 


05I32 


R 


620PI7? 


R 


05133 


R 


000000 


A 


05134 


R 


750001 


A 


05135 


R 


340133 


R 


85136 


R 


040133 


R 


05137 


R 


605115 


R 



FIG04 



FIG04X 



JMS 


FINT 


/. IS TO THE LEFT 


FOIV 


TEN 


/TIMES .1000 


FPUT» 


PTl 




FE^T 






LAC 


CI 




JMp 


FIG04X 




JMS fint 




/. IS TO The right: 


FMPY TEN 


/MULTIPLY 


BY i« 


FPUT* 


PTl 




FEXT 






claicma 






TAD 


SEXP 




DAC 


SEXP 




JMP 


ENDFIX 




.EJECT 
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/BASIC 


floating-point interpreter. 






005140 


R 


riNT=. 








05140 


R 


000000 


A 


FPNT 









05141 


R 


225140 


R 




LAC. 


FPNT 


/GET NEXT INSTRUCTION 


05142 


R 


445140 


R 




IS2 FPNT 






05143 


R 


741200 


A 




SNA 






05144 


R 


625140 


R 




JMP, 


FPNT 




05145 


R 


040134 


R 




OAC 


JUMP 




05146 


R 


500221 


R 




AND 


MASK7 


/GET 13 BIT ADDRESS 


05147 


R 


040136 


R 




OAC 


AODR 




05150 


R 


205140 


R 




UAC FPNT 
















.IFOEF P0P15 














AND (751000 


/MASK BK ♦ PG BITS 












.ENDC 
















.IFUND PDP15 




05151 


R 


505574 


R 




AND (60000 


/MASK BK BITS 












.ENOC 






05152 


R 


240136 


R 




XOR ADDR 






05153 


R 


040136 


n 




DAC AOOR 






05154 


R 


200220 


R 




LAC 


INDRCT 


/INDIRECT BIT=i? 


05155 


R 


500134 


R 




AND 


JUMP 




05156 


R 


751200 


A 




SNAiCLA 






05157 


R 


605162 


R 




JMP 


LOOP01 


/NO-GO ON 


05160 


R 


220136 


R 




LAC* 


AOOR 


/YES .DEFER ,H/0 aUTO-INOEX 


05161 


R 


040136 


R 




OAC 


ADDR 




05162 


R 


200136 


R 


LOOP01 


LAC 


AOOR 




05163 


R 


500221 


R 




AND 


MASK7 




05164 


R 


741200 


A 




SNA 






05165 


R 


605201 


R 




JMP 


FNULL 




05166 


R 


200136 


R 




Lac 


AOOR 




05167 


R 


040135 


R 




OAC 


JUMP2 




05170 


R 


200207 


R 




LAC 


CEXi 


/SAVE FLOATING ARCUEMENT 


05171 


R 


065573 


R 




OAC* 


(FLTXR 




05I72 


R 


201120 


R 




LAC 


MFLT 




B5173 


R 


040054 


R 




OAC 


CNTR 




05174 


R 


220135 


R 




lac» 


jUMP2 




05175 


R 


060014 


A 




OAC* 


'^LtXr 




05176 


R 


440135 


R 




ISg 


JUMP2 




05177 


R 


440054 


R 




I SI 


CNTR 




05200 


R 


60517-? 


R 




JMP 


.-4 




05201 


R 


140036 


R 


FNULL 


OEM 


OVERl 




05202 


R 


200134 


R 




LAC 


JUMP 


/GET COMMAND 


05203 


R 


742^1*" 


A 




RTL 






05204 


R 


742010 


A 




RTL 






05205 


R 


500222 


R 




And 


C7 


/GET BiTS •-2, [E 


05206 


R 


340223 


R 




TAD 


TABLE 


/LOOKUP IN TABLE 


05207 


R 


045211 


R 




OAC 


.♦2 




05210 


R 


200136 


R 




LAC ADDR 






05211 


R 


000000 


A 




XX 

•EJECT 


/GO THERE 
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B5212 
B5213 
05214 
05215 
05216 
05217 
05220 
05221 
05222 
05223 
05224 
05225 
05226 
05227 
05230 
05231 
05232 
05233 

95234 
05235 
05236 

05237 
05240 
05241 
05242 
05243 
05244 
05245 
05246 
05247 
05250 
05251 
05252 

05253 
B5254 

05255 
05256 
05257 
05260 
05261 
05262 
05263 

05264 
05265 
05266 

05267 
05270 



R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 

R 
R 
R 
R 
R 
R 
R 
R 
R 



045214 
125525 
000000 
605141 
04522(5 
125524 

0(!0l'00 
605141 
045224 
125527 
000O0«I 
605141 
045230 
125526 

000000 

605141 
125536 
605141 



R 045310 
R 340167 
R 040104 



225522 

740200 
605245 
165521 
165523 
605141 
750100 
605251 
125534 
750001 
045372 
205I4CI 

I0I055 
105140 
600137 
525310 
000000 
105343 
040037 
125527 
405310 



« 225522 

R 74420? 

R 744000 

R 205372 

R 740600 



///// 

fLPT 



FLCT 



FLSU 



FLAO 



NORF 

///// 

EXITF 



GCN. 



EXiTFi 



CEN« 



GEN, 



OAC .♦2 

JMS» ,aP 

XX 

JMp FpnT+1 

DAC .♦2 

JMS, .AO 

XX 

JMP FPNT+i 

OAC .+2 

JMS, .AR 

XX 

JMP FPNT+i 

OAC .♦2 

JMS« .AQ 

XX 

JMP FPNT*i 

JMS, .CD 

JMP FPNT*i 



85271 R 603441 R 



CCN> 
GEN* 



OAC 

Tao 

OAC 

GETSGN 

LAC« 

S2A 

JMP 

OZM» .AA 

02M« .AC 

JHP 

SMA'ClA 

JMP 

JMS* 

CLA5CMA 

OAC 

LAC 

PUSHa 

JHS 

JMS 

FPUT 

FGET* 

FXIT 

JMS 

OAC 

JHS* 

X.eH-f4000 

GETSGN 

LAC* 

S2A!CLL!C 

CLL 

LAC 
SNL!S2a 

Error 

.OEC 
JHP 



X.BH 

ci 

Sox 
.AB 

EXITF2 

FPNT^l 

.♦3 
.BA 

savpoh 
rPNT 

XPUSHA 
FPNT 
XY 
X.BH 



Fix 

0VER2 

.AR 

00 

.AB 

ML 

savpow 

28 

ERR2-28 



/STORE 

/LOAD 

/SUBTRACT 

/ADD 

/NORMALIZE 

/POWER 



/IS BASE NEGATIVE 

/NO 

/YES 

/save sign of base 
/Save interpreter entry 
/SaVe baSe and ceT poher 

/get integer pomer 
/see if integer 



/L»l IF INTEGER POINTER 
/L=0 IF NON- INTEGER 

/non-integeR powe« Or 
/nEg number 
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05Z72 


R 


200PI37 


R 




LAC 


OVER2 


/CHECK POWER 


05273 


R 


740100 


A 




SHA 




/POS OR NEC? 


(15274 


R 


60530? 


R 




JMP 


EXITFO 


/POS- 


05275 


R 


125524 


£ 




jmS» 


.ao 


/NEC - CHANGE SIGN 


05276 


R 


405310 


R 




X.Ph*400000 


/WITH GET'NEGATErPUT 


05277 


R 


125534 


E 




JMS» 


.BA 




05300 


R 


125525 


E 




JMS« 


.AP 




05301 


R 


405310 


R 




X.RH-»400000 




05302 


R 


220104 


R 


EXITFO 


LAC» 


80X 




05303 


R 


741200 


A 




SNA 






05304 


R 


605331 


R 




JMP 


ZERPOW 




05305 


R 


125524 


E 




JMS* 


.AG 


/GET BASE 


05306 


R 


000I37 


R 




XV 






05307 


R 


125535 


E 




JMS* 


.BH 




05310 


R 


000000 


A 


X.Bh 


XX 






05311 


R 


205372 


R 




LAC 


SAVPOw 


/GET SIGN OF BASE 


05312 


R 


740100 


A 




SMA 






05313 


R 


605320 


R 




JMP 


EXITFP 


/POS BASE 


05314 


R 


200037 


R 




LAC 


0VER2 


/GET POWER 


«5315 


R 


7^0020 


A 




RaR 




/PUT 000 OR EVEN IN LINK 


05316 


R 


741400 


A 




S2L 






05317 


R 


125534 


E 




JMS» 


.BA 


/Change sign 


05320 


R 


200037 


R 


EXljFP 


LAC 


0VER2 


/GET POWER 


05321 


R 


740100 


A 




SHA 






05322 


R 


605333 


R 




JMP 


EXITFX 


/NO CHANGE 


05323 


R 


105140 


R 




JMS 


FPNT 


/DIVIDE ANSWER INTO ONE 


05324 


R 


600I37 


R 




FPUT 


XY 




05325 


R 


500167 


R 




fget 


FLTONE 




05326 


R 


400137 


R 




fOiv 


XY 




05327 


R 


000000 


A 




FXIT 






05330 


R 


605333 


R 




JMP 


ExITFx 




05331 


R 


125524 


E 


ZERPOW 


JMS, 


.AO 


/ANY BASE TO ZERO POWER 


05332 


R 


000167 


R 




FLTONE 




/IS ONE 


05333 


R 






ExiTrx 


POPA 






05333 


R 


220013 


A GEN* 




LAC* 


PDLXR 




05334 


R 


045I40 


R 


■ 


OAC FPNT 






05335 


R 


125536 


E 




JMS« .CO 






05336 


R 


605141 


R 


///// 


JMP 


rPNT*l 




05337 


R 


84534I 


R 


FLMY 


DAC .♦2 






05340 


R 


125530 


E 




JMS* .*S 




/MULTIPLY 


05341 


R 


000000 


A 




XX 




. 


05342 


R 


605141 


R 




jMp FpnT*: 


t 












/ FORM AN INTEGER FROM C(FLAC 


-FLAC*1) 


05343 


R 


000000 


A 


FIX 







/VIA (INTEGER) 


05344 


R 


125533 


E 




JMS* .AX^ 




/FIX 


05345 


R 


040037 


R 




DAC 0VER2 






05346 


R 


125532 


E 




JMS* .*W 




/FLOAT 


05347 


R 


200P!37 


R 




LAC 0VER2 






05350 


R 


140037 


R 




OZH 0VER2 






05351 


R 


625343 


R 




JMP» FIX 






05352 


R 


045361 


R 


FLOV 


OAC FLnvx 






05353 


R 


440136 


R 




ISZ AOOR 






05354 


R 


220136 


R 




LAC* AOOR 






05355 


R 


505575 


R 




AND 


(377777 
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0'>356 


R 


74i?0(» 


A 

GEN» 




SNA 

FRROR 29 

.DEC 


05357 


R 


60344? 


R GEN» 




JMP ERR2-29 


05360 


R 


1?5"531 


E 




JMS* .aT 


C55361 


R 


BCe^Wf 


A 


flovx 


XX 


05362 


R 


6?5141 


R 




JMP rPNT+1 
.EJECT 



/DIVISION BY ZERO 
/DIVIDE 
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/FLOATING SQUARE ROOT FUNCTION 
P53ft3 " XSQRT GETSGN 

P5363 R 22552? E GEN» 
C';364 R 7«>1100 A 

GEN» 

05365 R 603437 R GEN« 

05366 R 125520 E 

05367 R 605371 R 

05370 R 000076 R 

05371 R 602517 R GEN* 

/ 

/.OTS ERROR ROUTINE 
/ 
005372 R SAVPOH=. 

05372 R 000000 A .ER 

ERROR 36 
GEN» .DEC 

05373 R 603431 R GEN. JMP ERR2-36 

.EJECT 



LAC» 


.AB 


SPAICLA 




fRROR 


30 


.DFC 




JMP 


ERR2-30 


JMS» 


DSORT 


JMP 


• ♦2 


FLARG 




RETURN 




JMP 


EFUN3 



/NUMreR IS NEGaTIVE=IMaGINaRY ROOTS 
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/UNPACK 
. / 
* .GETI 


INITIAL! 


?aTion 


05374 


R 


000Ct0l^ 


A 







05375 


R 


040041 


R 




0*C 


getp 


05376 


R 


777777 


A 




LAM 


-1 


05377 


R 


040042 


R 




OAC 


GETCX 


054(110 


R 


625374 


R 


/ 

/UNPACK 

/ 

.GET 


JHP» 


.GETI 














054«1 


R 


000000 


A 







05402 


R 


440042 


R 




IS? 


GETCX 


05403 


R 


605414 


R 




JMP 


GET4 


05404 


R 


220041 


R 




LAC. 


GETP 


85405 


R 


440041 


R 




ISH 


GETP 


05406 


R 


040043 


R 




DAC 


GETiX 


05407 


R 


220041 


R 




LAC» 


GETP 


05410 


R 


440041 


R 




IS? 


GETP 


05411 


R 


040044 


R 




OAC 


GET2 


05412 


R 


777773 


A 




L*W 


-5 


B5413 


R 


040042 


R 




OAC 


GETCX 


05414 


R 


777770 


A 


GET4 


LAW 


-10 


054I5 


a 


040045 


R 




OAC 


GET3 


05416 


R 


200044 


R 


GET5 


Lac 


GET2 


05417 


R 


740010 


A 




RAL 




05420 


R 


440045 


R 




IS? 


GET3 


05421 


R 


605424 


R 




JMP 


.♦3 


05422 


R 


500155 


R 




AND 


Pl77 


05423 


R 


625401 


R 




JMP* 


.GET 


05424 


R 


040044 


R 




OAC 


GET2 


05425 


R 


200043 


R 




LAC 


GETlX 


05426 


t? 


740010 


A 




RAL 




05427 


R 


040043 


R 




OAC 


GETiX 


05430 


R 


605416 


R 


/ 

/PACK IN 

/ 

.PUTI 


JMP 


GETS 










IITIALI2ATI0N 


05431 


R 


000000 


A 







05432 


R 


040046 


R 




0*C 


PUTP 


05433 


R 


140047 


R 




0?M 


PUTC 


05434 


k 


625431 


R 


/ 

/PACK 

/ 

.PUT 


JMP. 


.PUTI 


05435 


R 


000000 


A 







05436 


R 


500155 


R 




AND 


P177 


05437 


R 


040050 


R 




OAC 


pUT6 


05440 


R 


744000 


A 




CUL 




05441 


R 


200047 


R 




LAC 


PUTC 


05442 


R 


345576 


R 




tao 


(JMP. PUT7 


05443 


R 


045445 


R 




OAC 


•*? 


05444 


R 


200050 


R 




LAC 


PUT6 


05445 


R 


000000 


A 




*% 




05446 


R 


005453 


R 


PyT7 


PUTi 





/POINTER IN AC 
/INIT POINTER 

/INIT COUNTER 



/HORD PAjR STARTED 
/NEED NExT PAIR 

/FIRST PART 



/L*ST PART 
/RESET CHAR COUNT 

/SHIFT LOOP 7 ♦1/2 TIMES 

/DOUBLE AC ROTaTe LOOP 



/KEEP LOOPING 

/GOT CHARACTER 

/EXIT WITH CHARACTER IN AC 



/POINTEB IN AC 
/INIT POINTER 
/INIT COUNTER 



/CHARACTER IN AC 

/SAVE CHARACTER 

/CHARACTER POSITION 
/BUILD EISPaTCH 

/GET CH«RaCTER 
/MODIFKD JMP, PUT7 
/CHARl 
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815447 


R 


005461 


R 






PUTg 




P545PI 


R 


005464 


R 






PUT3 




05451 


R 


005477 


R 






PUT4 




05452 


R 


005502 


R 






PUT5 




05453 


R 


742020 


A 




PUT! 


RTP 




05454 


R 


742020 


A 






RTR 




05455 


R 


742020 


A 






RTR 




05456 


R 


742020 


A 






RTR 




05457 


R 


160046 


R 




PUT8 


0?M, 


PUTP 


05460 


R 


605504 


R 






JMP 


PUT9 


05461 


R 


742010 


A 




PUT2 


RTL 




05462 


R 


742010 


A 






RTL 




05463 


R 


605504 


R 






JMP 


PUT9 


05464 


R 


742020 


A 




PUT3 


RTP 




05465 


R 


740020 


A 






RAP 




05466 


R 


500144 


R 






AND 


Pl7 


05467 


R 


260046 


R 






XOR» 


PUTP 


05470 


R 


060046 


R 






DAC* 


PUTP 


05^71 


R 


^*00*6 


R 






IS2 


PUTP 


05472 


R 


200050 


R 






UAC 


PUT6 


05473 


R 


742020 


A 






RTR 




05474 


R 


742020 


A 






RTR 




05475 


R 


50555? 


R 






AMD 


(700000 


05476 


R 


605457 


R 






JMP 


PUTS 


05477 


R 








PUT4 


RTL6 




05477 


R 


100770 


R 


GEN» 




JMS 


XRTL6 


05500 


R 


742010 


A 






RTL 




055fl 


R 


605504 


R 






JMP 


PUT9 


05502 


R 


140047 


R 




PUTS 


DHm 


PUTC 


05503 


R 


741010 


A 






SKP'RAL 




05504 


R 


440047 


R 




PUT9 


ISH 


PUTC 


05505 


R 


260046 


R 






XOR» 


PUTP 


05506 


R 


060046 


R 






OAC» 


PUTp 


05507 


R 


200047 


R 






LAC 


putc 


05510 


R 


741200 


A 






SNA 




05511 


R 


440046 


R 






ISZ 


PUTP 


05512 


R 


625435 


R 






JMP» 


.PUT 






003756 


R 






.END BEGIN 


05513 


R 


005513 


E 


• ETV 








05514 


R 


005514 


E 


• ETV 








05515 


R 


005515 


E 


.ETV 








05516 


R 


005516 


E 


•ETV 








05517 


R 


005517 


E 


»ETV 








055?0 


R 


005520 


E 


• ETV 








05521 


R 


005521 


E 


• ETV 








05522 


R 


005522 


E 


• ETV 








05523 


R 


005523 


E 


• ETV 








05524 


R 


005524 


E 


• ETV 








05525 


R 


005525 


E 


• ETV 








05526 


R 


005526 


E 


• ETV 








05527 


R 


005527 


E 


• ETV 








05530 


R 


005530 


E 


• ETV 








05531 


R 


005531 


£ 


• ETV 








05532 


R 


005532 


E 


• ETV 








05533 


R 


005533 


E 


• ETV 









/CHAR2 

/CHAR3 
/CHAR* 
/ChAR5 
/8 RIGHT 



/CLEAR OATa word 
/4 LEFT 

/3 RIGHT - 1ST HALF 

/4 BITS ONLY 

/FINISH 1ST WORD OF PAIR 

/TO LAST MORD OF PAIR 

/GET CHARACTER 

/4 RIGHT - 2N0 HALF 

/3 BITS ONLY 

/8 LEFT 



/RESET 5/7 COUNTER 

/I LEFT 

/TO NEXT CHARACTER 

/hERGE inTo HqRO PA,R 



/2ND WORD COMPLETE 
/RETURN 
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«5534 


R 


005534 




• ETV 


85535 


R 


(1105535 




♦rrv 


05536 


R 


005536 




»ETV 


05537 


R 


005537 




• ETV 


05540 


R 


0CI0PI15 




»LIT 


05541 


R 


000fil6 




.LIT 


05542 


R 


0C10013 




• LIT 


05543 


R 


0f10777 




• LIT 


05544 


R 


000Hl(it 




♦LIT 


05545 


R 


000011 




«LIT 


05546 


R 


0PI0012 




• LIT 


05547 


R 


001570 




• LIT 


05550 


R 


601575 




• LIT 


05551 


R 


770000 




• LIT 


05552 


R 


700000 




•LIT 


05553 


R 


600000 




• LIT 


• 5554 


R 


000351 




• LIT 


05555 


R 


000005 




• LIT 


05556 


R 


000006 




• LIT 


05557 


R 


031000 




• LIT 


05560 


R 


001000 




•LIT 


05561 


R 


002000 




• LIT 


05562 


R 


603632 




• LIT 


05563 


R 


000100 




•LIT 


05564 


R 


000103 




• LIT 


05565 


R 


00010? 




• LIT 


05566 


R 


000003 




• LIT 


05567 


R 


000002 




• LIT 


05570 


R 


003213 




•LIT 


05571 


R 


077777 




• LIT 


05572 


R 


000001 




• LIT 


05573 


R 


000014 




• LIT 


05574 


R 


060000 




•LIT 


05575 


R 


377777 




• LIT 


05576 


R 


625446 


R 


• LIT 



NO ERROR LINES 
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*C1H 


0?I034 


R 


C242 


00450 


R 


*C1L 


081035 


R 


C250 


00424 


R 


ADO 


0dl0S6 


R 


0251 


00427 


R 


AOOR 


0PI136 


R 


C252 


00422 


R 


ALIST 


0t»447 


R 


C254 


00432 


R 


•LLCMi 


00316 


R 


C255 


000420 


R 


ALLCM2 


00322 


R 


C260 


00152 


R 


ANYMAT 


02045 


R 


0273 


00433 


R 


ARGNXT 


02411 


R 


C275 


00435 


R 


ARRAYN 


00142 


R 


C277 


00145 


R 


ARTN 


04315 


R 


C305 


00414 


P 


ASK 


016(»3 


R 


C306 


00163 


R 


ATLIST 


00436 


R 


C314 


00164 


R 


ATSW 


00053 


R 


C375 


00475 


R 


AXIN 


000010 


« 


e377 


00500 


R 


AXOUT 


00014 


R 


C7 


90222 


R 


BACK 


04435 


R 


C77 


00151 


R 


BEGIN 


03756 


R 


oatan 


955 1 3 


E 


REXP 


00132 


R 


OCONT 


01042 


R 


BKf 


000003 


A 


ocos 


05514 


F 


BKO 


000005 


A 


OCOUNT 


04770 


R 


BLKIN 


00030 


R 


OEBGSh 


00067 


R 


BLKOUT 


00031 


R 


necoN 


04550 


R 


BOTTOM 


000P0 


R 


OPCONV 


04524 


R 


BOX 


00104 


R 


OECP 


00055 


R 


BUFFER 


004046 


R 


OCCR 


04453 


R 


BUFR 


00004 


R 


nCLETE 


02550 


R 


flUFST 


00211 


R 


OEXP 


05515 


E 


RUFSTX 


00001 


R 


DGRP 


01003 


R 


CCR 


- 000501 


R 


nCRPl 


01012 


R 


CEXi 


00207 


R 


niG 


01465 


R 


CFRS 


00157 


R 


DIGIT 


00127 


R 


CFRSX 


00162 


R 


DIGITS 


000011 


A 


CHAR 


00061 


R 


DIGP5 


04476 


R 


CLISTX 


00471 


R 


DUOG 


05516 


E 


CNTR 


00054 


R 


DMPSW 


00070 


R 


COMARY 


01534 


R 


DNUHBR 


00131 


R 


COMBOT 


00010 


R 


00 


00776 


R 


C0H8UF 


00007 


R 


OOK 


02566 


R 


COHOEC 


01570 


R 


DONE 


02605 


R 


COME IN 


003756 


R 


OSAVE 


04556 


R 


COMEND 


01575 


R 


DSIN 


05517 


E 


COMLST 


00225 


R 


nSORT 


05520 


E 


COMMEN 


001210 


R 


OTST 


04565 


R 


COHHON 


01513 


R 


DUBLAO 


04641 


R 


COMMX 


01524 


R 


crop 


000053 


R 


COMOUT 


004066 


R 


rruN 


02431 


R 


ri 


000167 


R 


FrUN3 


02517 


R 


ritie 


00150 


R 


ELP.AR 


02475 


R 


ri4ei 


00175 


R 


ENDCR 


00020 


R 


C144 


00212 


R 


ENOFI 


05113 


R 


C2fia 


00154 


R 


CKfOFIX 


05115 


R 


C2\2 


00477 


R 


ENOLN 


HACRO 




C215 


00501 


R 


CNDNAT 


02060 


R 


C240 


00416 


R 


rNOT 


00002 


R 



EOCAL 

FNUM 

FPAR 

FPAR2 

FRASE 

FRG 

ERL 

ERROR 

ERRPCX 

FRR2 

ERR2CT 

FRR2T 

FRVX 

FR2T 

eSCA 

FTEBM 

ETERMN 

ETERMi 

ETERM2 

FVAL 

EXITF 

FXITFP 

EXITFO 

FXITFX 

EXITFZ 

EXTR 

EXl 

FADO 

FCONT 

FCOS 

FCOUNT 

FDIV 

FEN02 

FEN03 

FETVAR 

FEXP 

FEXT 

FGET 

FG02 

FG03 

FG03M2 

FG04 

FC05 

FG05A 

FG06 

FG07 

FIGOI 

FIG04 

FIG04X 

FILEXT 

FILE01 

FILE02 

FILE03 

FINCR 

FINCRX 

FINQLN 
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02417 
02376 
02477 
02633 
02657 
02650 
MACRO 
03475 
003475 
001*16 
03512 
02672 
00105 
03620 
02335 
02332 
02306 
02342 
02272 
05234 
05320 
05302 
05333 
05245 
03011 
00033 
100000 
01453 
B4334 
00124 
400000 
02721 
02722 
02110 
04272 
000000 
500000 
B4707 
04723 
04720 
04727 
04753 
04737 
04760 
05025 
05061 
05130 
05135 
00161 
004140 
004173 
004125 
01433 
01437 
MACRO 



R 

R 
R 
R 
R 
R 

R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
A 
R 
R 
R 
A 
R 
R 
R 
R 
A 
A 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
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FINDN 


02700 


R 


FINFIN 


01507 


R 


FINT 


005140 


R 


FISW 


00040 


R 


FIX 


05343 


R 


FLACl 


002360 


R 


FLAC2 


002420 


R 


FLAC3 


002427 


R 


FLAO 


05226 


R 


FLARG 


00076 


R 


FLARGP 


00160 


R 


FLARG2 


00101 


R 


FLOV 


05352 


R 


FLDVX 


05361 


R 


FLGT 


05216 


R 


FLIMIT 


01447 


R 


FLINTP 


05042 


R 


FLISTi 


00466 


R 


FLIST2 


00463 


R 


FLMY 


05337 


R 


FLOG 


04321 


R 


FLOP 


02362 


R 


FLOPX 


04502 


R 


FLOUTP 


04672 


R 


FLPT 


05212 


R 


FLSU 


05222 


R 


FLTONE 


00167 


R 


FLTXR 


000014 


A 


FLTJER 


00171 


R 


FMPY 


300000 


A 


FMUL 


300000 


A 


FNOR 


700000 


A 


fntabe 


000376 


R 


fntabf 


00351 


R 


FNULL 


05201 


R 


F0CAL9 


00177 


R 


FOR 


01407 


R 


FPNT 


05140 


R 


FPOPJ 


001501 


R 


FPOW 


000000 


A 


FPHNT 


04416 


R 


FPUSHJ 


001460 


R 


FPUT 


600000 


A 


FRST 


00113 


R 


FRSTCV 


00005 


R 


FSIN 


04340 


R 


FSUB 


200000 


A 


FUNAME 


00137 


R 


FUNCHK 


02455 


R 


FUNCTR 


00140 


R 


FUNERR 


03515 


R 


FUNFNO 


02473 


R 


FUNLOP 


02463 


R 


FUNPTR 


00141 


R 


FXIT 


000000 


A 
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GCNOX 


03036 


R 


GETARG 


02135 


R 


GETC 


MACRO 




GETCX 


00042 


R 


GETLN 


MACRO 




CETP 


00041 


R 


GETSGN 


MACRO 




GETVAP 


02116 


R 


GETVAR 


02141 


R 


GETVAX 


02130 


R 


GETVCT 


00021 


R 


GETl 


03026 


R 


CETiX 


00043 


R 


GET2 


00044 


R 


GET3 


00045 


R 


GET4 


05414 


R 


GETS 


05416 


R 


GEXIT 


00755 


R 


GFNDl 


02221 


R 


crNc 


00156 


R 


GUST 


00454 


R 


GONE 


00612 


R 


GOTO 


01176 


R 


GRPTST 


01343 


R 


GSl 


02161 


R 


GSIA 


02160 


R 


GS2 


02174 


R 


GS3 


02163 


R 


GS4 


02171 


R 


GTEM 


00016 


R 


HSPX 


04155 


R 


HTEMP 


000034 


R 


IBAR 


00575 


R 


I8ARX 


00571 


R 


IF 


01356 


R 


in 


01405 


R 


irs 


01375 


R 


IGNOR 


00602 


R 


ILIST' 


00460 


R 


IMAC , 


03306 


P 


IMAGER 


03307 


R 


IHAGEM 


03273 


R 


1MBF01 


003300 


R 


IMBF02 


003312 


R 


IMHUFF 


03123 


R 


IMBUFP 


00011 


R 


IN 


04445 


R 


INBFai 


003331 


R 


INRUF 


03127 


R 


INBUFP 


00012 


R 


INDRCT 


00220 


R 


INPUT 


04662 


R 


INPUTX 


00640 


R 


1MSUB 


00025 


R 


IRETN 


00607 


R 
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I SIGN 

ITABLE 

JUMP 

JUMP2 

L*STCV 

LASTLN 

LASTOP 

LASTV 

LBCLOS 

LBFILE 

LSIENO 

LBIN 

LBINLP 

LBIN01 

LBIN02 

LBIN03 

LBINIA 

LBKILL 

LBOOT 

IBOUTH 

LBOUTi 

LB0UT2 

LB0UT3 

LB0UT4 

LBTEXT 

LPTCXX 

tBMRIT 

L18CMD 

LIBRAR 

(.IBRSH 

LINENO 

LISTGO 

L1ST3 

LIST6 

LITX 

LOOP01 

LPOPJ 

LPROCS 

LPRTST 

LTFMP 

MASK 7 

MD 

MFLT 

HINUSA 

MODBFl 

M00BF2 

MODBUF 

MODIFY 

MORMAT 

MOVCOM 

MOVUPX 

MPER 

MULT10 

MULT2 

Ml 
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00130 
00404 
00134 
00135 
0000«I3 
00066 
00052 
00006 
04177 
04234 
04260 
04105 
04143 
04114 
04136 
04266 
04123 
04205 
04157 
04214 
04165 
04171 
04202 
04210 
04224 
042?7 
04220 
00332 
04067 
00032 
00062 
00510 
000501 
00474 
01573 
05162 
001300 
001037 
02536 
000035 
00221 
04505 
01120 
004565 
000134 
000135 
00017 
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